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4.0 uses logical 
units for separate 
compilation 


Pascal 4.0 lets you 
break up the code gang into 
“units,” or “chunks.” These 
logical modules can be 
worked with swiftly and 
separately—so that an 
error in one module is 
seeable and fixable, and 
you re not sent through all 
your code to find one error. 
Compiling and linking these 
separate units happens in a 


Please check box(es) Sugg. Retail Upgrade Pricet Serial No. 
O Turbo Pascal 4.0 Compiler $ 99.95 $ 39.95 
O Turbo Pascal 4.0 Developer’s Library 395.00 150.00 

(Includes Turbo Pascal Tutor and all Toolboxes; must be ordered with Compiler) 
QO Turbo Pascal Tutor 69.95 19.95 
O Turbo Pascal Database Toolbox 99.95 29.95 
O Turbo Pascal Graphix Toolbox 99.95 29.95 
O Turbo Pascal Editor Toolbox 99.95 29.95 
O Turbo Pascal Numerical Methods Toolbox 99.95 29.95 
O ‘Turbo Pascal Gameworks 99.95 29.95 

Total product amount $ 

CA and MA residents add sales tax $ 

Shipping and handling* $ 

Total amount enclosed $ 


Please specify diskette size: 0 5%” O 3%” 
Credit card expiration date: _____/ 


Card* [|_| | | | | | | | | | | | | | | tf ft 4 


flash because your compil- 
ing horsepower is better 
than 27,000 lines a min- 
ute.* And 4.0 also includes 
an automatic project Make. 


4.0’s cursor 
automatically lands 
on any trouble spot 


4.0’s interactive error 
detection and location 
means that the cursor 
automatically lands where 
the error is. While you're 
compiling or running a 
program, you get an error 
message at the top of your 
screen and the cursor flags 


the error’s location for you. 


4.0 gives you an 
Integrated program- 
ming environment 


4.0’s integrated environ- 
ment includes pull-down 


menus and a built-in editor. 


Your program output is 





O VISA O MC O Check O Bank Draft 





r than ever before! 


automatically saved and 
shown in the output 
window. You can Scroll, 
Pan, or Page through all 
your output and know 
where everything is all the 
time. Given 4.0’s integra- 
tion, you can edit, compile, 
find and correct errors—all 
from inside the integrated 
development environment. 


You ll never lose your 
mind, because 4.0 
never loses your place 


Whenever you re-load 4.0, 
it remembers what you and 
it were doing before you 
left. It puts you right back 
in the editor with the same 
file and in the same place 
as you were working last. 


*Run on an 8 MHz IBM AT. 


**If within 60 days of purchase this product does not perform in 
accordance with our claims, call our customer service department, and 
we will arrange a refund. 


All Borland products are trademarks or registered trademarks of Bor- 
land International, Inc. Other brand and product names are trademarks 
or registered trademarks of their respective holders. 

Copyright © 1987 Borland International, Inc. BI 1159 


“In US please add $5 shipping for each product ordered or $15 for the Compiler and Developer's Library. Outside US please add $10 shipping and handling for each 


product ordered or $25 for the Compiler and Developer's Library. 


tTo qualify for the upgrade price you must give the serial number of the equivalent product you are upgrading. 
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record used by Intr ana msDos } 


= record 


case Integer of 
0: (AX, BX, CX.DX, BP, SI,DI,DS,ES,Fia 


=. (AL, AH. BL, BH, CL, CH, DL,DH: Byte) 





end; 


» and untyped-file record } 


record 
Handle: Word; 
Mode: Word; 
RecSize: Word; 
Private: array(t1..26} of Byte 
UserData: array({1..16] of ee 


ee ee 
*S 29 of Char 





Program in the 
fast lane with 
Borland s new 
Turbo Pascal 40. 








The fast lane is fa\ 


ur new Turbo 

Pascal® 4.0 is so 

fast, it’s almost 
reckless. How fast? 
Better than 27,000 lines 
of code per minute. That’s 
much faster than 3.0 or 
any other Pascal compiler 
and the reason why you . 
need 4.0 today. 


Pascal. The fastest 
and the best. 


If you’re just now 
learning a computer lan- 
guage, learn Pascal. If 
you re already program- 
ming in Pascal, you’re 
programming with a 
winner because Pascal is 
the worldwide language 
of choice. Pascal is the 
most popular language 
in university computer 
science classes and with 
computer enthusiasts 
who appreciate Pascal’s 
modern programming 


YES 


Pascal 4.0 Upgrade Dept. 
Borland International 


structure. It’s powerful, 
coherent, easy to learn 
and use—and with Turbo 
Pascal 4.0—faster than 
ever before. 


Turbo Pascal: 
Technical excellence 


Commitment to tech- 
nical excellence and 





Superiority also means 
commitment to detail, 
however painstaking, and 
that takes time. 4.0’s pre- 





Name 


decessor, Turbo Pascal 
3.0 is the worldwide 
standard, and with Turbo 
Pascal 4.0, we’ve bet- 
tered that standard. 4.0 is 
Clearly the world’s fastest 
development tool for the 
IBM® PS/2 series, PC’s 
and compatibles—and the 
world’s favorite Pascal 
compiler. 


4.0 breaks the 
code barrier 


No more swapping 
code in and out to beat 
the 64K code barrier. 
Designed for large pro- 
grams, Turbo Pascal 4.0 
lets you use every byte of 
memory in your compu- 
ter. You paid for all that 
memory, now you can use 
it freely. 


For the IBM PS/2 and the IBM and 
Compaq families of personal computers 
and all 100% compatibles. 


'.. I want to upgrade to Turbo Pascal 4.0 
@ and the 4.0 Toolboxes 


Registered owners have been notified by mail. If you are a registered Turbo Pascal user and 
have not been notified of Version 4.0 by mail, please call us at (800) 543-7543. To upgrade if 
you have not registered your product, just send the original registration form from your manual 
and payment with this completed coupon to: 





Ship Address — 


4585 Scotts Valley Drive Cj 
Scotts Valley, CA 95066 DY eres. SLING 


Zip__.______—‘Telephone ( ) 


This offer is limited to one upgrade 


per valid registered product. It is good until November 30, 1987. N 
seks bacdelineyel coe g 87. Not good with any other offer from Borland. Please allow 4 to 6 





Outside U.S. make payments by bank draft payable in U.S. dollars drawn on a U.S. bank. CODs and purchase orders will not be accepted by Borland. DDJ 11 


Nows the time 2: 
for a fast decision: ~~ —— 
Upgrade now to 40! 
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Compatibility with « Interactive error : oo 
Turbo Pascal 3.0 detection/location 
We've created 4.0 to = Includes acommand line 
be highly compatible with version of the compiler 
version 3.0 and included a 4.0 also 
conversion program and = Saves output screen in a 
compatibility units to help window 
you convert all your 3.0 2 ite nat and 50 
ines per screen 
programs to 4.0. = Generates MAP files for 
: ; debugging 
cig of = Has graph units including 
Orland S ew CGA, EGA, VGA, MCGA, 
Turbo Pascal 4.0 3270 PC, AT & T 6300 & 
; ercules support 
; Compiles 27,000 lines = Supports extended data 
per minute types (including word, lon 
= Supports >64K programs integers ee 
= Uses units for separate = Does smart linking So 
ompilation = Comes with a free revise 
= Integrated development procaine ogame 
environment oo 
4.0 is all yours for only $99.95 
Sieve (25 iterations) oo 
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2224 bytes 


11682 bytes 
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9.3 seconds 
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Sieve of Eratosthenes, run on an 8MHz IBM AT |. 
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Since the source file above is too small to indicate a difference in compilation speed we compiled our GOMOKU program from Turbo Gameworks to give 
you a true sense of how much faster 4.0 really is! 


Compilation of GO.PAS (1006 lines) 


AOPOOLOIDELOOEDOIEEISOOLILORELIEOOLDSORPPSOEIODEDE, ranoonees ceonnnnnnn 
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Turbo Pascal 4.0 |= —«‘Turbo Pascal3.0 - 
pe I et ad baicacs ad ec ee 
Compilation speed | 2.2 seconds | 3.6 seconds 
Lines per minute 27,436 16,750 | 
iinet i Bos ut Sidi ; 
GO.PAS compiled on an 8 MHz IBM AT 60-Day Money-Back Guarantee ** 





For the dealer nearest 
you or to order call 


(800) 543-7543. 
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Magic is easy with Turbo C TOOLS 
in your bag of tricks. New Turbo C 
TOOLS" from Blaise Computing is a 
library of compiled C functions that 
allows you full control over the com- 
puter, the video environment, and the 
file system, and gives you the jump on 
building programs with Borland’s new 
C compiler. Now you can concentrate 
on the creative parts of your programs. 


The library comes with well-docu- 
mented source code so that you can 
study, emulate, or adapt it to your speci- 
fic needs. Blaise Computing’s attention 
to detail, like the use of function proto- 
typing, cleanly organized header files, 
and a comprehensive, fully-indexed 

manual, makes Turbo C 
we. TOOLS the choice for 
experienced 
software 


iler, requires 
OS 2.00 or 
later and is just 
$129.00 


¥ op memory resident applications that can 
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2560 Ninth Street, Suite 316 Berkeley, CA 94710 (41S) 540-5441 
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developers as well as newcomers to'C. 


Turbo C TOOLS provides the sophisti- * 
cated, bullet-proof capabilities needed 
in today’s programming environmen® 
including removable windows, “side- 
kickable” applications, and general 
interrupt service routines written in C, @ 


The functions contained in Turbo C 
TOOLS are carefully crafted to supple- 2 
ment Turbo C, exploiting its strengths . 
without duplicating its library functions. 
As a result you'll get functions written 
predominantly in C, that isolate hard- 
ware independence, and are small and 
easy to use. 


Turbo C TOOLS embodies the full spectrum 
of general purpose utility functions that are 
critical to today’s applications. Some of the 
features in Turbo C TOOLS are: 


that are stackable and remov- 
able, that have optional borders and a cursor 
memory, and that can accept user input. 


sup- 
port for truly flexible, robust and polite 


applications. We show you how to capture 
DOS critical errors and keystrokes. 


lets you devel- 


take full advantage of DOS capabilities. 
With simple function calls, you.can schedule 
a Turbo C function to execute either when 
a “hot key” is pressed or at a specified time. 


, | lets 
you create, detect, and remove resident util- 
ities that you write with Turbo C TOOLS. 


for 
efficiency, and support for all monitors 
including EGA 43-line mode. 


support let you take advantage of the DOS 
file structure, including volume labels and 
directory structure. 


In addition to Turbo C TOOLS, Blaise 
Computing Inc. has a full line of sup- 
port products for Microsoft, Lattice 
and Datalight C, Microsoft Pascal 
and Turbo Pascal. Call 
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Mac graphics > 


TurboC > 


Turbo Pascal »> 


Make your own 
TSRs > 


Text processing > 


Unix time > 


OOPstories > 
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3-D Images from Contour Maps 
by William D. May 

Bill shows how to warp scanned images of contour maps—such 
as topographical maps—into representations that can be 
displayed and rotated in three dimensions. 

A Graphics Toolbox for Turbo C (Part 1) 

by Kent Porter 

Borland’s new C compiler doesn’t come with a lot of graphics 
support. Kent decided to do something about that. 

A Graphics Toolkit for Turbo Pascal 

by Hubert D. Callihan 

Hugh uses several nonstandard Turbo Pascal routines to create a 
set of tools for handling screen regions. 

Using EGA Graphics Screens in Your Programs 
by J. Brooks Breeden 

Using both Forth and pseudocode (for portability), Brooks gives 
you the tools for loading EGAPaint files into video memory. 
Automated Interrupt Handling in C 
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Ron offers a clever hack you can use to develop your own TSR 
utilities. 
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About the Cover 

As you may have guessed, we 
didn't produce the contour map 
on this month’s cover on the art 
department’s 512K Mac. Thanks, 
you folks at Dynamic Graphics 
Inc. in Berkeley, California, for 
the use of the software, Vax, 
Tektronix terminal, and data to 
make this month's’ cover 
happen. 


This Issue 
Programming is getting more 
like cinematography every day. 
Welcome to our graphics pro- 
gramming issue, with coverage 
ranging from how to handle 
contour maps on the Macintosh 
to how to shuffle screen regions 
on the PC. There’s even a library 
for handling graphics in Turbo 
. 


Next Issue 

December is our annual operat- 
ing systems issue. The lead arti- 
cle comes from Dave Cortesi (the 
Resident Intern, for those of you 
who remember his column 
from the old days) and concerns 
one of the less explored aspects 
of OS/2: dynamic linking. Allen 
Holub’s column will detail anew 
multitasking kernel, and we'll 
also present some keen-edged 
blades for system hacking. 





Take a look at the specs on VISTA™, a good look. 
Notice the processing, programming, and video 
Capabilities? Now think real hard about what you could 
do with the power of VISTA and a microcomputer. Incor- 
porate it with your system to create a digital pre-press 
proofing station for publishing. Design a graphics work- 
station which outputs both colorful hi-resolution slides 
and broadcast-quality animated images. Construct a 
CAD system which merges computer generated images 
with real-life backdrops for architecture, packaging or 
other industries. And, after you’ve brainstormed your 
way to new horizons of videographics possibilities, get 


your own VISTA and start working. 














Let’s Get Specific. 


We knew you couldn't resist seeing the 
facts, and frankly, our engineers 
wouldn't have it any other way. Here is 
an overview of VISTAS key features. 


FEATURES: 


¢ 4Mbytes of Video RAM on-board 

* Texas Instruments’ TMS 34010 GSP 

¢ Flexible, programmable resolutions 

¢ NTSC and PAL compatible 

¢ Four 8-bit channels for real-time 
capture 

¢ Fully integrated genlock 

« Processor memory expandable in 
2Mbyte increments to 12Mbytes 

¢ Four 2K x 8-bit CMOS static RAM 
LUTs 

« Display can be color-mapped, RGB, 
or a versatile combination of both 

¢ Interlaced and non-interlaced display 

¢ Binary and fractional programmable 
zoom capability, creates horizontal 
and vertical magnify or minify 

¢ Smooth horizontal and vertical pro- 
grammable panning, includes wrap- 
around and split screen 

¢ Suggested Retail Price: $5995. 


Afst 


ADDRESSABLE RESOLUTIONS: 


32 bits/pixel 16 bits/pixel 8 bits/pixel 
1024x1024 2048x1024 4096x1024 
512x2048 1024x2048 2048x2048 
256x4096 512x4096 1024x4096 
CAPTURE RESOLUTIONS:* 
NTSC PAL 
(RS-170A) (CCIR-624) 
756x486 738x576 
604x486 590x576 
504x486 492x576 
432x486 422x576 


*Resolutions are programmable; these are nominal ones 
for interlaced NTSC and PAL compatible. 


DISPLAY RESOLUTIONS:* 
Non- 
NTSC PAL Interlaced Interlaced 
(RS-170A) (CCIR-624) 
1512x486 1476x576 1024x768 768x576 
1008x486 984x576 (60 Hz) (50 Hz) 
756x486 738x576 
604x486 590x576 768x768 756x486 
504x486 492x576 (80 Hz) (60 Hz) 


*Resolutions are programmable; these are nominal ones. 


COMPUTER REQUIREMENTS: 


Host Type: IBM PC AT and 100% Compati- 
bles, Compaq 386, 
Apollo DN 3000-single-slot board 
Data Bus: 16-bit or 8-bit (self-configuring) 
Bus Clock: 6MHz to 12MHz 
Power 
Consumption: 15 Watts 
—=. 
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IBM is a registered trademark of International Business Machines Corp. International ig uiries: contact Techexport at 617/890-6507 (USA), or cee at 44: -99 01: 
In Italy, contact S/R/O Informatica at 39-2-301-0051 


TRUEVISION’ 


uggested retail price is US domestic price. 


It’s So Flexible, 
We’ve Added Support. 


With its Texas Instruments TMS 34010 
graphics processor, large quantity of 
video memory, and proprietary video 
cross-point, VISTA can be programmed 
for an array of powerful market-specific 
videographic applications. To help you 
maximize VISTA’ potential, Truevision 
offers a range of C-language program- 
ming tools for developers. And when 
your system is market-ready, we'll sup- 
port your marketing efforts with our 
TRUEVISION SOFTWARE CATALOG, 
TRUEVISION NEWS, and THE PULSE. 


We’re For Higher 


Resolution...Power...Flexibility... 
Quality. Join the many key manufac- 
turers and developers already working 
with the state of the videographics art, 
VISTA. Call us at 800/858-TRUE for 
more information on the VISTA 
Developer's Program. We're ready to 
take your application today. 


AT&T 

Electronic Photography and Imaging 
Center 

7351 Shadeland Station, Suite 100 
Indianapolis, IN 46256 
800/858-TRUE 
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EDITORIAL 


Mike’s Survey 


W e've just seen the results of our 


annual reader survey, so we 
now know more about you and your 
interests. We know that you are edu- 
cated: most of you have done gradu- 
ate work. You're forward-looking: 
you re more likely to use LISP or PRO- 
LOG than COBOL or even Modula-2, 
and if you or your company don’t al- 
ready have a 386 machine, you prob- 
ably will buy one or more in the next 
year. You have professional access to 
a wide choice of machines, operating 
systems, and environments for soft- 
ware development. 

Not entirely coincidentally, we're 
just wrapping up the editorial calen- 
dar for 1988. You can look forward to 
coverage of a wide range of program- 
ming environments: Unix, OS/2, the 
Macintosh environment, Windows, 
and DOS. We'll publish code in PRO- 
LOG, LISP, PostScript, C, Pascal, assem- 
bly languages, Forth, and BASIC. We'll 
examine the shift in programming 
style to object-oriented, event-driven 
design, we'll.... 

Well gladly, as always, alter the 
plan to accommodate new develop- 
ments and the treasures of the tran- 
som. Which is where you come in. 

What follows is a list of topics that 
interest us, beyond the languages and 
operating systems mentioned above. 
Survey results indicate that they also 
interest you. You can influence us in 
two ways. The first is to write us an 
article on one of the listed topics (or 
another of your choosing). The sec- 
ond is to let us know where you'd 
like to see us invest our efforts in the 
coming year. Treat this page as a bal- 
lot and check your favorite topics. 
Send me your choices. I promise to 
read them. 


Ada 

Algorithms 

Common data formats 
Consulting 

Databases 

Device control 


Editors 

EMS programming 
Encryption 

Fourth generation languages 
Functional programming 
Human interface design 
Industry news 

Libraries 

Logic programming 
Machine learning 
Managing development teams 
Mathematics 

Modula-2 

Multitasking 

Music 

Nubus and the Mac II 
Numerical methods 

PS/2 programming 

Parallel processing 
PostScript 

Product news 

Product reviews 

Scientific applications 
Software engineering 
Starting a software business 
Telecommunications 

Unix 


Please indicate your choices on this 
page or a copy of it and send it to 


Michael Swaine 

Mike's Survey 

M&T Publishing 

501 Galveston Drive 
Redwood City CA 94063. 
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Genius Begins With A Great Idea ... 


What follows is the time consuming task of giving 
form and function to the idea. 

That’s why we concentrate on building into our soft- 
ware development systems functions and features 
that help you develop your software ideas in less time 
and with less effort. 

We've started 1987 by releasing new versions of 
our MS-DOS, Macintosh, Amiga, ROM, and Apple // 
C development systems. Each system is packed with 
new features, impressive performance, and a little bit 
more genius. 





Superior performance, a powerful new array of fea- 
tures and utilities, and pricing that is unmatched 
make the new Aztec C86 the first choice of serious 
software developers. 


Aztec C86-p Professional System ... .$199 
e optimized C with near, far, huge, small, and large 
memory + Inline assembler + Inline 8087/80287 + 
ANSI support + Fast Float (32 bit) + optimization 
options « Manx Aztec 8086/80x86 macro assembler 
e Aztec overlay linker (large/small model) * source 
level debugger ® object librarian © 3.x file sharing & 
locking * comprehensive libraries of UNIX, DOS, 
Screen, Graphics, and special run time routines. 


Aztec C86-d Developer System...... $299 
e includes all of Aztec C86-p ¢ Unix utilities make, 
diff, grep ¢ vi editor © 6 + memory models ¢ Profiler. 


Aztec C86-c Commercial System..... $499 
¢ includes all of Aztec C86-d ¢ Source for library rou- 
tines © ROM Support ¢ CP/M-86 support ¢ One year 
of updates. 


Aztec C86 Third Party Software 


A large array of support software is available for Az- 
tec C86. Call or write for information. The following is 
a list of the most requested products: « Essential 
Graphics « C Utility Library * Curses * Greenleaf Com- 
munication, General, and Data Window « Halo « Pan- 
el+ ¢ PC-lint « PforCe » Pre-C * Windows for C « Win- 
dows for Data C terp « db_Vista « db-Query « Phact « 
Plink-86 Plus « c-tree  r-tree « Pmate 


C compiler, 8080/Z80 assembler, linker, librarian, 


UNIX libraries, and specialized utilities. 

Aztec C ll-c (CP/M-80 & ROM)........ $349 
Aztec Cll-d (CP/M-80)...........05. $199 
Aztec C80 (TRS-80 3&4) ............ $199 














Amiga user groups across the USA voted Aztec 
C68k/Am release 3.3 the best Software Development 
System for the Amiga. Release 3.4 is more impres- 
sive. 


Aztec C68k/Am-p Professional 
A price/feature/performance miracle. System in- 
cludes: optimized C * 68000/680x0 assembler ¢ 
68881 support © overlay linker ¢ UNIX and Amiga 
libraries © examples. 


Aztec C68k/Am-d Developer ........ $299 
The best of Manx, Amiga, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep and vi. 


Aztec C68k/Am-c Commercial....... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 





For code quality, reliability, and solid professional 
features, Aztec C for the Macintosh is unbeatable. 
This new release includes features and functions not 
found in any other Macintosh C development system. 


Aztec C68k/Mac-p Professional...... $199 
® optimized C * 68000/680x0 assembler * 68881 
support ¢ overlay linker * UNIX and Macintosh li- 
braries * examples. 


Aztec C68k/Mac-d Developer........ $299 
The best of Manx, Macintosh, and UNIX. System in- 
cludes: all of Aztec C68k/Am-p © the Unix utilities 
make, diff, grep ¢ vi editor. 


Aztec C68k/Mac-c Commercial ...... $499 
Aztec C68k/Am-d plus source for the libraries and 
one year of updates. 


Aztec C65 is the only commercial quality C com- 
piler for the Apple II. Aztec C65 includes C compiler, 
6502/65C02 assembler, linker, library utility, UNIX li- 
braries, special purpose libraries, shell development 
environment, and more. An impressive system. 


Aztec C65-c Commercial ........... $299 
® runs under ProDOS ¢ code for ProDOS or DOS 3.3 
Aztec C65-d Developer...........:: $199 


e runs under DOS 3.3 ¢ code for DOS 3.3 


ware, C-tree TM Faircom, Inc., Windows for 


An IBM or Macintosh is not only a less expensive 
way to develop ROM code, it’s better. Targets include 
the 6502/65C02, 8080/Z80, 8086/80x86, and 680x0. 

Aztec C has an excellent reputation for producing 
compact high performance code. Our systems for 
under $1,000 outperform systems priced at over 
$10,000. 


Initial Host Plus Target............. $750 
Additional Targets ............000: $500 
ROM Support Package............. $500 


Call for information on Vax, PDP-11, Sun and other 
host environments. 


These C development systems are unbeatable for 
the price. They are earlier versions of Aztec C that 
originally sold for as much as $500. Each system 
includes C compiler, assembler, linker, librarian, 
UNIX routines, and more. Special discounts are 
available for use as course material. 


CPG Feo ae i ea $75 


Most Aztec C systems are available as cross devel- 
opment systems. Hosts include: PC/MS-DOS, Mac- 
intosh, CP/M, Vax, PDP-11, Sun, and others. Call for 
information and pricing. 


To become a user call 800-221-0440. From NJ or 
international locations call 201-542-2121. Telex: 
4995812 or FAX: 201-542-8386. C.O.D., VISA, 
MasterCard, American Express, wire (domestic 
and international), and terms are available. One 
and two day delivery available for all domestic and 
most international destinations. 

Aztec C is available directly from Manx and from 
technically oriented computer and software stores. 
Aztec Systems bought directly from Manx have a 30 
day satisfaction guarantee. 

Most systems are upgradable by paying the differ- 
ence in price plus $10. Site licenses, OEM, educa- 
tional, and multiple copy discounts are available. 


To order or for more information call today. 


In NJ or international call (201) 542-2121 e TELEX: 4995812 


M an i i i Systems, Ltd., 

MS is a registered TM of Microsoft, Inc., CP/M TM DRI, HALO TM Media Cybernetics, PANEL TM Roundhill Computer t 

wa S stems PRE-C, Plink-86, Plink-86 + , P-Force TM Phoenix, db Vista TM Raima Corp., C-terp, PC-lint, TM Gimpel Soft- 

: eae ” y eT cgomtitkace | ' C. Windows for DATA TM Creative Solutions, Apple II, Macintosh TM Apple, Inc., TRS-80 TM 
Radio Shack, Amiga TM Commodore Int'l., Unix TM AT&T, Vax TM DEC, Aztec TM Manx Software Systems. 
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s Mike Swaine 

mentioned on 
page 6, we've just re- 
ceived the results of 
our latest reader sur- 
vey. After spending 
some time pouring 
through the data, I’ve 
still got a few things 
I'm curious about— 
items that are impor- 
tant to producing a |e 
quality magazine but don t atten 
show up in the statistical abstracts. 

For example, we devote a lot of 
space to source code listings. The 
question is, are you folks really using 
those listings? Given there’s always a 
limit to the number of pages in an 
issue, should we keep printing the 
listings as they are or print more arti- 
cles and arrange for source code to 
be distributed some other way? 

There’s ample historical justifica- 
tion for printing source listings, of 
course. The reason DDJ was founded, 
after all, was to put tools such as the 
source code for Tiny BASIC into the 
hands of as many people as possible. 
If you wanted your computer to do 
something back then, for the most 
part you had to write the program 
yourself. (Sometimes you'd have to 
write an interpreter or compiler first 
and then get back to the original 
problem.) A dozen years ago, the 
hacker ethic demanded we put 
source code into the hands of our 
readers, and we did it gladly. 

But that was a dozen years ago, 
and things have changed a bit. These 
days Bill Gates isn’t paranoid about 
hobbyists copying his cassette BASIC; 
instead he’s justifiably worried about 
Philippe Kahn stealing his languages 
market. The economics of the eight 
million PCs out there (a conservative 
estimate, by the way) have caused 
many sophisticated compilers to be 
priced so that it doesn’t make sense 


to pirate the products, let alone write 
them yourself. 


Fine, I hear you say, but what has 





all this to do with Dr. 
Dobbs? 

Simply put, the field 
is changing and DDJ 
must grow and adapt 
to keep up. There’s no 
question that Tiny BA- 
SIC ported to the AMD 
29000 would be an in- 
teresting exercise in 
| assembly language, 

but surely there are 


more cmeful projects to use as an ex- 


ample of 29000 programming. (For 
those of you coding for the 29000, 
yes, that was a hint for article 
suggestions.) 

The question is not whether the 
Doctor’s pride and joy will change, 
but how. To get back to the topic of 
source listings: Most of you have a 
modem or easy access to one. In a 
time when 2,400 bps modems are 
readily available, does it make sense 
to print listings so that you can enjoy 
hours of typing practice? Do you 
want more downloading options or 
is CompuServe access sufficient? Fi- 
nally, do you use the code in binary 
form or just scan the printed listings 
to understand the algorithms? 

As always, I’m willing to discuss 
this topic with you by phone, if you 
can catch me at my desk. I'll certain- 
ly be watching the CompuServe DDJ 
Forum to catch the debate and as the 
pile of papers hiding my desk will at- 
test, we do read all your letters. But if 
you really want to make sure I get 
your vote/suggestion/threatening 
letter, the best bet is to use the mail 
systems on CompuServe (#<TK>) or 
BIX (‘tyler’). 


Tyler Sperry 
editor 


ARCHIVES 


Linguistic Overbyte 

“Programming languages appear to be 
in trouble. Each successive language incor- 
porates, with a little cleaning up, all the 
features of its predecessors plus a few 
more .... The Department of Defense has 
current plans for a committee-designed 
language standard that could require a 
manual as long as 1000 pages. Each new 
language claims new and fashionable fea- 
tures, such as strong typing or structured 
control statements, but the plain fact is that 
few languages make programming suffi- 
ciently cheaper or more reliable to justify 
the cost of producing and learning to use 
them..... 

For twenty years programming lan- 
guages have been steadily progressing to- 
ward their present condition of obesity; as 
a result, the study and invention of pro- 
gramming languages have lost much of 
their excitement. Instead, it is now the 
province of those who prefer to work with 
thick compendia of details rather than 
wrestle with new ideas.’’—John Backus, 
1977 Turing Award Lecture. 


Ten Years Ago in DDJ 
‘Microsoft's BASIC for the 8080 and Z-80... 
is now generally available on both a single- 
copy and OEM basis. The BASIC became the 
subject of extended legal dispute which re- 
sulted in the termination of an exclusive 
license to MITS, Inc. 

“The BASIC, best known in the field as 
Altair BASIC, has been in use for 12 years 
and has a user base of over 5000.’’—news 
release, DDJ, November /December 1977. 

‘In his letter in the DDJ #18, Phil Karn 
mentions problems regarding semi-trans- 
parent paper tape. I wonder if he has tried 
using polarized light. Two inexpensive 
pieces of polarizing material, one above 
the tape and one below, might solve the 
problem. Light would still filter through 
the tape, but would be de-polarized in the 
process and would be rejected by the sec- 
ond polarizer. Light passing through the 
holes would still be polarized and be 
picked up by the sensors. I haven't tried it, 
but it should work’’—Jim Day, letter to the 
editor, DDJ, November /December 1977. 
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Dr. Dobb’s Journal, November 1987 


Optimizing ROMable C 


With Source Level Debugging on Your Target System! 


Optimum-C, the compiler known 
for its tight, highly-optimized code 
generation, produces completely 
ROMable code. Coupled with 
ROM support tools like ROMable 
standard function libraries, a 
remote debugger, pre-written 
startup routine, interactive ed- 
itor, and UNIX-style MAKE, 
Optimum-C will help you complete 
your project in record time. 


Optimum-C, the ROM 


developer’s choice 
Optimum-C has the features ROM 


developers require in a C compiler. 
These features include fast 
execution, multiple memory 
support, and 8087 support via 
inline code or emulation. 
Optimium-C also has understand- 
able error messages, one-step 
compiling, complete function 
prototyping, and inline 8086 I/O 
instructions. 


You’ve seen the ads: Datalight 
challenges Microsoft. Our C 
compiler expert Richard Relph saw 
the ads and sent for Datalight’s 
compiler. What he found when he 
began to test it must have given him 
mixed feelings. For the past two 
years Richard has been involved in 
developing the DDJ suite of 
benchmarks for C compilers. The 
Datalight compiler flattened those 
benchmarks, making them 
worthless. 

With the apparent glut of C 
complier suppliers vying for the 
MS-DOS market, it was only a 
matter of time before one of them 
decided to step above the crowd and 
provide a reliable optimizing C 
compiler. Datalight beat all others 
to the punch by delivering such a 
compiler February of this year. (Dr. 
Dobbs Journal, August 1987) 


ROM-it, The ROM 
Developer’s Kit 


ROM.-it adds the functionality 
required by serious ROM develop- 





ers. ROM-z¢ includes pre-written 
start-up code for an embedded 
system to take the 8086 processor 
from a system RESET to executing 
C code. The library included has 
standard C functions that are usable 
in a ROM environment, without 
any hidden calls to MS-DOS or the 
BIOS. Lastly, the BLAZE Loca- 
tor/Intel hex file generator performs 
location of code and data while it 
checks for ROM overflows, illegal 
data access, and complete program 
location. 


Remote-DSD Source Level 
debugging on your target 
system! 


The Remote-DSD debugger allows 
you to debug your application on 
the target system. Remote-DSD 
runs on the PC and is connected to 
your target system via an RS232 
link. With Remote-DSD you 
download your application to the 
target hardware, modify initial 
values of variables before you start 
your application. The C source 
code appears on the PC showing 
you where execution will start. You 
can now execute or single step 
through your program, set break 
points, and access your target 
machine internals like I/O ports, 
registers, and memory. 


And lastly, Support! 

The product is only as good as the 
support. With DATALIGHT, you 
are covered here. You will get one 
hour of phone support for those 
needed. answers. Also, you will get 
updates for one year, so you are 
always running with the latest 
versions. 


Pick up the phone and gain a 
powerful advantage. 
Call 
1-(800) 221-6630 
for complete details on how you can 


finish those ROM projects on time 
and without the bugs! 
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Magazine Reviewers Shocked by 
DATALIGHT’s Performance... 


“Reviewing this compiler was quite a 
surprise for us. For such a low price, we 
were expecting a “‘lightweight’’ compiler. 
What we got was a package that 1s as good 
as or better than most of the “‘heavy- 
weights.’ Datalight C' implements a 
complete C language. It also compiles 
quickly, doesn’t take up much disk space, 
and looks impressive in the benchmarks.” 

DR. DOBBS, August 1986 


“This ts a sharp compiler!... what ts 
impressive is that Datalight not only stole 
the compile time show completely, but had 
the fastest Fibonacci executable time and 
had excellent object file sizes to boot!” 


COMPUTER LANGUAGE, February 1986 


Specifications 


Full UNIX V C compiler 
with ANSI extensions 
Global optimizations using 
Data Flow Analysis 
8087/80287 support inline or 
emulation 
Complete library source 
code 
Multiple memory model 
support 
Interrupt handling in C 
Make utility 
EZ editor 
DLC one step compiling 
Start-up code for 8086 
ROMable library (without 
hidden MS-DOS calls) 
BLAZE locator/Intel hex file 
generator 
Source level debugging on 
the target system 
View source code as it 
executes on target 
Access local variables 

¢ View 8086 machine 
internals 


Datalight 


17505-68th Avenue NE, Suite 304 
Bothell, Washington 98011 USA 
(206) 367-1803 


















Apple picked our brains. 


And so did hundreds 


of other companies. 


Before millions of people 
picked Macintosh," Apple® 
picked Motorola’s M68000 
Family—the brains behind one 
of the most successful computer 
products ever launched. 


Now Apple has tapped the 
brainpower of the Motorola 
MC68020 microprocessor for 
the Macintosh II, bringing the 
high performance of a graphics 
workstation to business desk- 
tops everywhere. 


72% of all 32-bit systems ever 
shipped included at least one 
MC68020. That's more than half 
a million high-performance 
systems. 


The high-performance 
business solution. 


The MC68020 is not just the 
overwhelming choice in 
workstations—it is now setting 
new performance standards in 
the office—where it is essential 
to the computation, graphics 
and communication necessary 
for interconnected systems. 


While Apples choice of the 
MC68020 was a smart move, 
theres no license on genius: 
the ’020 is the microprocessor 
assum, Of Choice in advanced 
™, business system 
designs by such 













indus- 
try leaders 
as Altos, Alpha 
Micro, Casio, C.Itoh, Fujitsu, 
Honeywell Bull, NEC, NCR, 
Olivetti, Plexus, Ricoh, Sanyo, 
Sharp, TI, Toshiba and UNISYS. 


The graphics solution. 


The M68000 family helped 
Apple implement the visionary 
“point and click” graphic work- 
style that has driven productivity 
up while driving training costs 
way down. Businesses of all 
sizes are discovering dramatic 
productivity increases in office 
computing through innovations 
such as desktop publishing. 


The software solution. 


Among programmers and 
designers dedicated to creating 
the best, most innovative appli- 
cations, the M68000 architec- 
ture has been the leading 
choice by far—with over seven 
million M68000 systems 
installed since 1979. 


Meanwhile, the MC68020, on 
the market now for three years, 
is already backed by two billion 
dollars worth of 32-bit software. 
This is more 32-bit software 
than all competitive products 
combined! 











The Brain Trust: Where M68000 
microprocessors predominate. 


Engineering Workstations 
Apollo, Hitachi, HP, Sony, Sun, 
Tektronix. 

Laser Printers 

Apple, Canon, HP, IBM, QMS, 
Ricoh. 

Departmental Computers 
Convergent Technologies, 
Fujitsu, Honeywell Bull, NEC, 
NCR, UNISYS. 

PBX and Telephone Systems 
AT&T, Northern Telecom, 
Siemens. 

Fault Tolerant Systems 

IBM, NCR, Nixdorf, Stratus, 
Tandem. 

Supercomputers 

Alliant, BBN, Caltech, Fifth 
Generation. 

Factory Automation 
Allen-Bradley, ASEA, Bailey 
Controls, GM, Mitsubishi, 
Square D. 





Join the Brain Trust. 


Challenge us to persuade you 
of the sound business and 
technical reasons to join the 
M68020 Brain Trust. Write to 
us at Motorola . 
Were 


Semiconductor 


Products Inc., 1 YVOur 
P.O. Box 20912, - 
Ceocns AZ CSIBMEIN 
85036. team. 


Apple is a registered trademark and Macintosh 
is a trademark of Apple Computer, Inc. 


(AA) MOTOROLA 
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8088 Optimization 
Techniques 

Dear DDJ, 

I enjoyed Tom Disque’s article on 
8088 optimization techniques (July 
1987) but must point out a simple 
improvement to his Example 1. 

He uses a jcxz jump to guard 
against counter cx entering a rep 
movsw with a value of 0. Although 
this would be a necessary prelude 
to an ordinary loop, where cx is 
tested at the bottom after decremen- 
tation, it is wasted before a rep 
prefix. As explained in The 8088 
Book by Russell Rector and George 
Alexy (pages 4—46), a check for cx =0 
is the very first step in a rep 
instruction, and when it is 
true initially, the string primi- 
tive is not executed. 

Particularly for anyone 
whose use of the computer 
reflects the name the French 
give to it—L’ordinateur, a ma- 
chine for putting things in 
order—the string primitive 
instructions are among the 
8086 family’s most distinct ad- 
vantages and such situations 
arise frequently. Bearing in 
mind this behavior of the rep 
prefix and the cx register can 
save both time and memory 
as well as giving program- 
mers one less detail to worry 
about. 

Paul R. Emmons 

438 W. Chestnut St. 

West Chester, PA 19380 


Dear DDJ, 


I read Tom Disque’s article 
in the July issue, on 8088 op- 
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timizing techniques, with great inter- 
est. 

As a Motorola-biased programmer, 
I found it interesting to note that 


Mr. Disque’s 68000 code suffered | 


from an Intel-type restriction. The 
code itself was very good, but it 
limited the amount of memory that 
could be moved to a maximum of 
between 64K and 256K, depending 
on the alignment of the memory. 
Although Mr. Disque used long-size 
instructions when manipulating the 
length registers, the dbf instruction 
could only loop a maximum of 64K 
times. 

The dbf instruction can easily be 
extended to cope with 32-bit loops 
by following it with the instructions: 


sub.1 #$10000,<register> 
bcec.s <loop__label> 


In Mr. Disque’s routine, the solution 
is to replace the branch to exit after 
longloop with the lines: 


sub.1 #$10000,d0 
bes.s exit 


bra.s longloop 


and to insert the lines: 


Jared's wardrobe—like his programming— 
isn't EGA compatible. 








sub.1 #$10000,d0 
bcc.s Ingloop2 


after the second dbf. The last dbf 
does not need modification as it 
only ever moves 14 bytes at most. 

With these changes Mr. Disque’s 
memory-move routine can then 
cope with the complete addressing 
range of all the 680x0 processors. 

Andrew Pennell 

The Old School, Greenfield 

Bedord, MK45 5DE 

England 


Legacy of the Teletype 

Dear DDJ, 

In the December 1986 Letters 
column there was a letter from a Mr. 
Hawkins in which he was complain- 
ing among other things about the 
terseness of the C language. He at- 
tributed this ‘‘propensity for the 
least possible typing” to the authors 
of the language being two fingered 
typists. More likely it was what they 
were typing on that inspired them 
to opt for the least possible typing. 
C is an older language than many 
realize since although it was born 
in the early 1970s along with Unix, it 
did not escape from its birthplace, 
the Bell Laboratories, until 
around 1980. The standard 
terminal in use back in the 
early seventies was the tele- 
type machine. In many operat- 
ing systems from CP/M to 
Unix the abbreviation TTY, 
used for things related to the 
terminals, makes sense only 
if it is realized that the termi- 
nals were originally teletype 
machines. 

The teletype machine was 
an electromechanical device, 
not an electronic device, and 
was therefore very slow by 
today’s standards. Typically 
it operated at 110 baud or 
ten characters per second. 
Furthermore, after a key was 
= struck you had to wait a full 


—— tenth of a second before strik- 


— ing the next key or it would 
= be ignored. Since most 
people, especially when think- 
ing at the keyboard, tend to 
(continued on page 138) 
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_ TURBO PASCAL 
AND TURBO C... 
MEET 
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“Ideal! TurboHALO does the job 
comparable to packages costing 


$3000 to $4000.” 
Jim Bromley 
Superintendent of “T like the speed of 
Spectrum Management TurboHALo...it’s ten times faster 
than the competition.” 
Deniz Terry 
Doctoral Candidate 
“TurboHALO is so fun... 
I use it to design 
programs as a hobby...It’s got 
lots of ability.’ 
William Porter 
Control Systems Manager 
“We evaluated all of the graphic 


development packages for Turbo 
Pascal, and TurboHALO was the 
hands down winner!” 
Quinn Curtis 
Largest New England Distributor 





GRAPHICS 
PROGRAMMING 





TurboHALO requires 256K memory (min); memory resident drivers require 2K (Turbo Pascal only); DOS version 2.0 or 


Media Cybernetics and IMSI. Turbo C and Turbo Pascal are trademarks of Borland. 


It’s time to put graphics 

into your programming. 

A picture’s worth a thousand words. 
So your programming isn't complete 
until you have graphics. TurboHALO 
brings your screen and printer to life 
with subroutines that draw, chart, map, 
and display. All with color, shape, 
clarity, perspective and motion. With 
TurboHALO, create any picture you 
can imagine. 

TurboHALO gives you 

graphics power. 

TurboOHALO gives you everything you 
need for Turbo C and Turbo Pascal 
graphics programming. A library of 
over 150 graphics subroutines. Drivers 
for over 42 graphics hardware devices 
for the IBM PC family and compatibles. 
You can create the images you want, 
on the hardware you have! 

Fast, proven and reliable. 
TurboHALO is up to ten times faster 
than other graphics toolkits. And with 
TurboHALO you get proven, reliable 
programming tools used by 
professionals for years. 

You'll like TurboHALO or your 
money back! 

TurboHALO is available for only $95. 
You get an unconditional 45-day 
money-back guarantee on TurboHALO. 
To order, call your dealer or IMSI at 
(415) 454-7101 or (800) 222-4723; in 
CA (800) 562-4723; in Washington DC 
(202) 363-9340 or in NC(919) 854-4674. 


aaa ae eee 
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YES, I want to see the difference 
TurboHALO makes in my graphics 
programming! Rush me the following 
TurboHALO Graphics Toolkit(s) @ $95 
each plus $3 shipping. California 
residents add 6% sales tax. 


( TurboHALO for Turbo Pascal 

















(CO) TurboHALO for Turbo C ti 

[Check enclosed for $ | 
(made payable to IMSI) 

CCharge my credit card a 
for$__.____ 01 visa () MasterCard 

Signature A 

Card Number Expiration Date 

Name H 

Title Ee 

Company 

Street E 

City State Zip Li 


Mail to: 
IMSI, 1299 Fourth Street, San Rafael, CA 94901 


higher; Borland language/compiler required. TurboHALO is a trademark of 
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For’99 SS 
pcAnywhere 
gives you all that's — 
needed to support 
both host and remote! 


It lets you access and run an unat- 
tended IBM PC/XT/AT/PS2 or compatible 
from any remote location. On any per 
sonal computer. Day or night. 

And with our new IRMA interface you 
Can access a mini or mainframe, too. 

This makes it ideally suited to remote 
customer service and technical support. 

Because you can identify and solve 
problems from your office PC! Saving 
valuable time and the expense of a field 


Visit us at 
Comdex 


Support your clients 
Wwitnout 
your ofrice! 


leaving 


| a 4 


oo 












service Call. 
With pcAnywhere 
you can compress 
and then transfer a file 
from your client's PC to 
yours, fix it, then transfer the 
file back to the client. 

Virtually any program on the client's 
PC can be controlled from your keyboard. 
AS though you were sitting in front of 
the client's computer. 

Take remote control then give it back 
to your client's PC. Or keep both 
keyboards active at the same time and 
type messages back and forth. 

Call today for more information or to 
place an order. You'll find yourself in 
remote control before you know it! 


pcAnywhere is a trademark of DMA. 


boo 7 /64 Middle Country Road, PO. Box Y Selden, NY 11784« (516) 736-0500 
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RESIDENT EXPERT Pop-up Reference Guides... 





———-—RES IDENT EXPERT (tm) 


MS-C Version 5.8 
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a char *fgets(str,cnt,strean); 


4 char “str, 
Pee 
See 


et ee 


- 4 Mt eC a | 


the input 


stream specified by 
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Try One And Get Our MS-DOS/PC-DOS Guide 


THE POP-UP REFERENCE 
REVOLUTION BEGINS 


How much development time could you save if 
you never had to open another PC language or 
technical reference manual again? What if you 
could just point at a compiler keyword, assembly 
instruction, or function name on your screen and 
with a keystroke have complete, authoritative 
information about language syntax, operands, 
parameters, examples, and much more? 


INTRODUCING THE RESIDENT 
EXPERT SYSTEM 


A growing library of comprehensive, disk 
resident reference guides about the PC and your 
favorite PC languages. All available instantly 
through our unique memory resident pop-up 
access system. 


VIRTUALLY EVERYTHING YOU 
NEED TO KNOW 


Each of our Compiler Reference Guides 
contains virtually everything you need to know 
to program with your preferred implementation 
of your favorite language. Language syntax, all 
library functions, compiler directives, and error 
codes are thoroughly documented. 


Our PC Programmer’s Reference Guide 
documents every PC (and AT) processor 
instruction and every BIOS and DOS service 
interrupt. You'll also find tables of keyboard 
codes, line drawing, ASCII, and IBM character 
sets, and much more. 


THE SPECIALIST’S LIBRARY 


Your compiler is unique. That's why our 
reference guides are specialized...each one 
designed for a particular vendor's language 
implementation. 


. ——_—_—=L— 


Absolutely FREE! 


Free With Any Purchase! 


Our Companion Pop-up GuideTo 


MS-DOS3.2/PC-DOS 3.3 


Limited Time Offer 





QUICK DRAW ACCESS SYSTEM 


Point-and-shoot...just place the cursor over any 
term on your screen. Chances are we've got it 
fully detailed in one of our data bases. 


Fully cross indexed...if the instruction or library 
function you’ re using isn’t quite right, our related 
topics cross index can help you find a better one. 


Multiple volumes on line...you can have one or 
a dozen of our pop-up reference guides on 
line...a complete library available instantly. 


THE INFORMATION YOU 
NEED...WHERE YOU NEED IT 


Our pop-up shell varies its size and shape 
dynamically, only taking as much space on your 
screen aS it needs and it mever covers your 
working area. You can see your work and our 
reference data at the same time. 


A COMPLETE LIBRARY...STILL 
ONLY A BEGINNING 


At Santa Rita, our commitment is to provide the 
most accurate, extensive selection of PC 
language reference materials available. If you 
don’t see one of our guides for your favorite 
language or compiler listed below don’t worry, 
we're probably working on it! 


PC Programmer's Reference Guide ... $59.00 
(with Assembly Language Guide) 


Borland [urboC 70................ 59.00 
Borland Turbo Pascal (3.0 and below)..... 59.00 
(with Graphics & Numerical Methods Toolbox) 


Borland Turbo Prolog (1.1 and beiow)..... 59.00 
(with Prolog Toolbox) 
Lattice C Compiler (3.2 and below). ...... 59.00 


Mark Williams LetsC (4.0 and beiow)..... 59.00 
Microsoft C Compiler (5.0 and below). .... 59.00 


Santakita 


For the location of your nearest Santa Rita 
Software dealer, or to order direct, call us at 
1-214-727-9217. We'd like to hear from you. 


Santa Rita Software 
1000 E. 14th Street, Suite 365 
Plano, Texas 75074 





The RESIDENT EXPERT System 





Resident Expert is a trademark of The Santa Rita Company. Borland, Turbo C, Turbo Pascal, and Turbo Prolog are trademarks of 


Borland International Inc. IBM and PC-DOS are trademarks of International Business Machines Corporation. Lattice Cisa 
trademark of Lattice Inc. LetsC is a trademark of Mark Williams Company. Microsoft and MS-DOS are trademarks of Microsoft 


Corporation. 
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Texas Instruments has 
system developers need. 
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“Personal Consultant™ Plus eo offers Personal Consultant Plus 3.0 Standard Features 


— Frames, rules, meta rules and procedures 
— Forward/backward chaining 


@ 
a ver y fine expert system development By te testing and rule tracing 
. ss la eke cache and dioley 
and delivery tool that already has fest ae Ls 23%, 0s tes, 
— Complete LISP development environment 


a proven record with end-users.” = fmegabve expanded extended memory sppor 


— Context sensitive help 
— “Getting Started” tutorial-style manual 


Personal Consultant Images 
— Optional add-on package to PC Plus (3.0) 
— Allows integration of “active images” into 


— Susan Shepard, AI Expert 
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Power tools. 






knowledge bases é‘ 
— Interactive dials, gauges, forms and selection 





images 

— Multiple images can be combined on same 
screen 

- “Getting Started” tutorial-style manual 


Personal Consultant Online 


- ne add-on package for PC Plus (3.0) . 
-0 irectly with 


LINE expert systems that interact 


rocess data oe 
— Multiple interfaces to data acquisition and 
analysis programs 


— Knowledge base synchronization with process 


data 


— Functions for historical and predicted trends 
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Among all the expert system devel- 
opment tools available for personal 
computers today, none deliver the 
power and flexibility of TI’s Personal 
Consultant series. 

Personal Consultant Easy is ideal for 
getting started, and is upwardly com- 
patible with the higher functionality of 
PC Plus. For experienced developers, 
Personal Consultant Plus and its 
optional add-on enhancements, Online 
and Images, were designed to help solve 
a broader range of complex problems. 


Personal Consultant Plus. Full power 
for an affordable price. 

At $2,950, PC Plus has proven to be 
one of the richest and most flexible 
problem-solving tools available for the 
development of complex knowledge- 
based systems. Designed to take 
advantage of today’s more powerful 
286/386 DOS-based computers, or T’s 
Explorer™ Symbolic Processing System, 
the new 3.0 version of PC Plus provides 
powerful standard features and a contin- 


uing growth path with the addition of 
either PC Images or PC Online, or both. 


Personal Consultant Images. Picture 
an expert system with interactive 
graphics. 

At $495, PC Images enables developers 
to create knowledge-based applications 
that incorporate complex graphical 
“active images.” User-interactive dials, 
gauges, forms and selection images pro- 
vide a more exciting visual data input 
and output style. 


Personal Consultant Online. The 
expert system as part of the process. 
At $995, PC Online allows the devel- 
oper to design expert systems which 
interact directly with process data, as 
opposed to input from a human oper- 
ator. Designed for intelligent process 
monitoring applications, this optional 











er 





package helps deliver expertise that is 
“online all the time.” 


Application delivery as flexible as the 
tools themselves. 

Delivery can be in LISP for flexibility, 
or “C”* for maximum speed and porta- 
bility. Our “C” options support either 
stand-alone or “embedded” knowledge 
bases. Options are available for DOS- 
based PCs, TI’s Explorer, and DEC’s 
VAX™ line of multi-user minis running 


under VMS™. 





“Texas Instruments has done more 
than any other company to educate 
people about AI, to popularize it, and 
to make useful AI tools available at 
reasonable prices.” 

— Jim Seymour, PC Magazine. 


Technical support, training courses and 
Knowledge Engineering Services are 
available for the Personal Consultant 
products. If you have a question about 
any of our expert system power tools, we 
have the answer. 


Pick up the phone and gain a powerful 
advantage. 
Call 1-800-527-3500 for technical 


overviews of our products and a PC Plus 
case histories brochure which details 
how our power tools are being put to 
work today. 


36106 

© 1987 TI 

Personal Consultant and Explorer are trademarks of 

Texas Instruments Incorporated. 

dBase is a trademark of Ashton- Tate. 

Lotus 1-2-3 is a trademark of Lotus Development Corp. 

VAX and VMS are trademarks of Digital Equipment Corporation. 
* Available 4Q 1987. 
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ontour maps have in- 
trigued me ever since 
my introduction to 
them in high-school geology. 
By studying a contour map, I 
could learn about inaccessi- 
ble parts of the world and 
discover unexpected possibili- 
ties in my backyard. Yet for 
all its wealth of information and detail, a contour map is 
less than intuitive. You must say to yourself, “these 
contours are very close together, so this area must be 
very steep,’ or “these contours are widely spaced, so 
this area is fairly level.” 

It would be wonderful to be able to feed a contour 
map into a machine that could project images of the 
terrain in three dimensions. Then you could rotate the 
view, zoom in on interesting spots, change to different 
viewpoints, and generally get an extremely tangible 
feeling for the characteristics of the landscape. 

This article is about a set of algorithms that takes a 
step toward achieving these objectives. The algorithms 
analyze a binary image of a contour map (such as that 
produced by an image scanner) and produce a represen- 
tation of the image that can be used by a hidden-line 
algorithm. The hidden-line algorithm can then produce 
3-D views from any mathematically valid viewpoint. 
Figures 1 and 2, page 20, show the before and after of 
this transformation. 

In many respects the means of transforming the 
contour map into three dimensions is as interesting as 
the transformation itself. Seeing the contours on a 
contour map is trivial for the human eye and brain but 
ile cn I CRE ASPIRE eS) eee yy ae 
William D. May, 20A-M23, Arthur D. Little Inc., Acorn Pk., 
Cambridge, MA 02140. Bill is a consultant specializing in 
system development. 
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This contour- analysis algorithm 
vividly demonstrates 


the gulf between human cognition 
and an algorithmic procedure. 
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complex for a computer. A 
large part of the problem 
stems from bandwidth: the 
eye/brain seems to see an 
entire image, its components, 
and the relationships among 
its components simultane- 
ously, but the computer 
“sees” an image one pixel at 
a time. The low bandwidth of the computer's vision 
makes it extremely difficult for the computer (that is, its 
programmer) to identify objects and to perceive their 
relationships. 

The approach I have taken uses some geometry to 
overcome this lack of cognitive ability, first to find and 
identify the contours in the image and then to analyze 
the contour relationships (nesting). The drawback of 
using a geometric solution (as opposed to an “intelli- 
gent” or “learning” solution) is that this approach is 
useful only for this particular application. But I think 
this drawback is more than offset by the ability to do 
something that the eye/brain cannot: use the analysis to 
build a 3-D image from a 2-D map. 

Of course, contour representation is used in areas 
other than geography, such as medicine, chemistry, and 
astronomy. The contour-analysis algorithm I have devel- 
oped can be used in these situations as well, although 
the interpretation of the resulting “image” will be quite 
different. 

I should caution you that the current state of this 
algorithm falls somewhat short of my original objective, 
the major problem being with the input of the map. The 
algorithm needs an image that consists of topologically 
correct contours. This means that continuous, closed 
contours on the map must in fact be continuous and 


closed in the image and that contours don't cross or 
merge. 
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In real life, such as using a U.S. Geological Survey map, 
this requires that extraneous information be filtered out 
of the image and that the contours themselves get 
scanned accurately. Both requirements are difficult to 
achieve. U.S. Geological Survey maps contain a wealth of 
symbols, lines, markings, grids, shadings, and so on that 
interfere with the filtering process. The requirement for 
continuous lines is also difficult to achieve. First, the 
maps often place elevation information directly on the 
contour line, which is easy for humans to read but 
difficult for computers to interpret. Second, scanners 
have difficulty accurately placing the very fine lines used 
for contours, so the result sometimes looks more like a 
fog of dots where the contour is supposed to be than a 
continuous line. 


From the Map to Three Dimensions 

A program that transforms contour maps into 3-D views 
requires several steps to achieve its objective. I have 
summarized these steps below. The process draws on 
diverse subjects, such as image processing and 3-D 
graphics. The focus of this article is mainly on the 
algorithms for analyzing contour map information and 
building a 3-D representation from the analysis. These 
tasks correspond to steps 3 through 5 below. 


1. Getting the map image into the computer. I use 
images stored in Macintosh MacPaint format, which can 
be created using MacPaint or via scanners such as 
Thunderscan. The MacPaint format is simple, consisting 
of 512 bytes of header information (which is usually 
ignored) and a bit map in which each bit represents a 
single black or white pixel in the image. Apple's Macin- 
tosh Tech Note #86 explains the MacPaint format in 
detail and provides sample Pascal code for reading and 
writing MacPaint documents. 

2. Cleaning up the image. Extraneous image data —that 
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is, data that is not part of a contour—must be removed 
before trying to analyze the map. In many cases some 
human work is needed to overcome imperfections in 
the scanning process. 

3. Analyzing the contour image. This refers to finding all 
the contours in the bit map, “remembering” which are 
nested in which, and storing them in a way that can be 
used to build a 3-D image. The contour-analysis algo- 
rithm builds two data structures during the analysis. 
One is an array with one entry for each contour discov- 
ered in the map. Each array element contains the 
coordinates of one point on the contour; the index of 
the enclosing contour; and, eventually, the contour's 
elevation. The algorithm also stores every point that is 
on a contour as a node in a tree. The key for the node is 
the point’s coordinates, and the datum consists of the 
array index of the contour the point is on. These two 
data structures make it easy to access the contours 
directly or to access contour information when given 
any point on the contour. This in turn makes the 
translation into three dimensions easy. 

4. Assigning elevations to the contours. A restriction of 
the contour-analysis algorithm is that it cannot read 
elevations directly from a digitized image. In some 
applications this does not matter; in others, such as US. 
Geological Survey maps, the ability would be quite 
useful. That would be a different and very large project, 
though, and leaving it out, as I have done here, does not 
affect the basic logic of the algorithm. In lieu of reading 
the elevations from the map, I have implemented the 
simple case in which all nested regions are assumed to 
be ascending. Given the base elevation of the map, the 
program simply increments the elevation for each level 
of nesting in the image. The more general solution 
would allow users to override elevation assignments 
manually. | 

5. Creating an internal 3-D representation of the terrain. 
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3-D IMAGES 
(continued from page 19) 





After the contour analysis, the program builds a rectan- 
gular grid as the transformed representation of the 
contour map. The grid is simply an array in which each 
cell contains the elevation at a point on the map. The 
larger the grid, the more finely it covers the map and the 
greater the detail in the resulting image. 

6. Displaying a projection of the grid. The final step is to 
use a hidden-line algorithm to display the grid as a 3-D 
projection on the screen. Hidden-line algorithms allow 
the viewer to observe the scene from any angle in a fairly 
realistic format. 


How the Contour Analysis Works 
Two problems must be solved in order to analyze a 
contour map. The algorithm must find all the contours, 
and it must determine their nesting relationships. 

The contour search begins by using a 2-D search of 





Figure 1: A sample contour map 


the image—that is, starting at the top left and scanning 
across each row until it finally reaches the bottom right. 
Each time it finds a contour (a black pixel), it determines 
if it is a contour that was previously ‘‘seen.” If not—that 
is, if the program has found a new contour—it adds the 
contour to its internal data structures. In either case the 
search continues. 

Unfortunately, this search pattern is too simple to 
fully serve your needs. The problem is that it provides 
no easy way to track how contours are nested. In order 
to track the nesting relationships you must specify a 
contour and have the contour-analysis algorithm find a 
single level of contours within it, as shown in Figure 3, 
below. The interiors of the contours within the region 
should not be searched (yet). This procedure makes the 
tracking of nesting easy: the enclosing contour is the 
“parent” of the contours discovered within it. Assuming 
you have this ability, you then use the top-left to 
bottom-right search to find the lowest level of contours 
in the image and use your new search algorithm to 





Figure 3: The search within contour 1 will find contours 
2 and 3 but not 4. Contour 4 will be found by a search of 
contour 3. 
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Is your PC 
an endangered. 
species? 








With PC technology evolving at breakneck speed, it's 
become survival of the fastest. But before you decide 
your PC, XT or even AT is doomed to extinction, 
take a look at PC Technologies’ complete family of 
enhancement boards: 





386 Express™ — Our 16-MHz 80386 accelerator — 
specially suitable for LANs — will make your IBM AT two 
to three times more productive and maintain full 
software compatibility including OS/2, all at a remarkably 
low price — $995. 


286 Express™ — The first half-slot 80286 accelerator 
card and winner of AFIPS/FORTUNE Magazine's 
Hardware Product-of-the-Year Merit Award. Engineered 
to deliver two to six times more speed for your PC, XT 


or compatibles. 








286 RAMracer™ — Two performance upgrades, one 
low price. Combines 8-MHz 80286 acceleration and up to 
2MB of EEMS/EMS- compatible expanded memory for 
your larger, demanding software applications. 


RAMpartner ™ — Batter down the DOS 640K memory 
barrier with up to 2MB of expanded memory. Ideal for 
spreadsheets, databases, windowing software...andasa 
companion to the RAMracer or AST and Intel expanded 
memory products. 


286 Rainbow Plus™ — Our one-slot, five-function 
board contains an Enhanced Graphics Adapter, a 10-MHz 
80286 accelerator, PLUS a Microsoft® InPort™ mouse 
interface, parallel printer port, and clock/calendar. 





To find out how easy — and economical — it is to 

take your PC off the endangered species list, see your 
nearest PC Technologies dealer. Or call us today, direct, 
at 800-821-3086 (outside Michigan) or 313-996-9690. 


RT ec Technologies Inc. 


704 Airport Blvd., Ann Arbor, MI 48108 
313-996-9690/Telex 503589/FAX 313-996-0082, 
800-821-3086 (outside Michigan) 

Trademarks: IBM PC, XT, AT, OS/2 — International Business Machines 


Corporation; AST — AST Research Inc.; Intel — Intel Corporation; Microsoft, 
inPort — Microsoft Corporation. 
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3-D IMAGES 
(continued from page 20) 





search the interior of each of the newly discovered 
contours (and then use it again to search the interior of 
any contours within them, and so on...). 

This new search hinges on being able to differentiate 
the interior or exterior of an enclosed region. This 
requires a simple observation: if the program is following 
a contour in a counterclockwise direction, and it is 
currently following a downward arc, then the interior 
lies to the right of the current position, as seen in Figure 
4, below. Alternatively, if the program is following a 
contour in a clockwise direction, and it is currently on a 
downward arc, then the exterior lies to the right of the 
current point. 

Using this observation, the sequence of events to 
search the interior of a region is this: Trace around the 
bounding contour in a counterclockwise direction, and 
at each point on a downward arc, scan to the right (that 
is, the interior) until you find a new contour or find the 
other side of the bounding contour. On finding a new 
curve, traverse this curve in a clockwise direction, still 
scanning to the right on a downward arc, as indicated 
in Figure 5, below. Because the traversal is now reversed, 
this scan will now be the exterior of the new contour— 
that is, the interior of the original contour but on the 
opposite side of the nested contour. Applied to the 
bounding curve and all the interior curves, this proce- 
dure scans the interior of the bounding contour but not 
the interior of any contours nested within the bounding 
contour. For example, in Figure 3 a search of contour 1 
done in this way will encounter contours 2 and 3 but 
not contour 4. Contour 4 will be discovered only when a 
search is made of the interior of contour 3. In fact, the 
entire search is reduced to this process by treating the 
border of the image itself as a large contour. 

Following the contour analysis, the elevation assign- 
ments are made by stepping through an array of the 
contours found and assigning an elevation equal to the 
enclosing contour’s elevation plus the elevation incre- 
ment. This is where I use the assumption that all nested 
regions are rising. 

Finally, an array of elevations is developed to be used 
as input to the hidden-line algorithm. The array ele- 


Search direction 





Figure 4: The interior of the region is to be right when 
traversing a descending arc. 
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ments are calculated by traversing the image along the 
grid lines. When a traversal begins, it sets its current 
elevation to the base elevation of the contour map, and 
each time it reaches a grid intersection it assigns the 
current elevation to the corresponding element of the 
array. The traversal also looks for intersections with 
contours on the map. These intersections signal a change 
in the current elevation. When it encounters a contour, 
the program first retrieves the elevation of the contour 
from the contour array described earlier. 

At first glance it may seem that this new elevation 
should become the current elevation. It’s not that simple. 
If the traversal is going into a nested region, then the 
new elevation is the elevation of the region it is now 
entering and thus should become the current elevation. 
If the traversal is leaving a nested region, however, the 
new elevation is the elevation of the region just left. - 

For example, imagine traversing the following simple 
map: the base of the map has a zero elevation, and there 
is a plateau in the center with an elevation of 100 feet. 
When the traversal begins, it uses the base elevation (0) 
as the current elevation. When it encounters the con- 
tour around the plateau, because it is entering a nested 
region, it assigns 100 to the current elevation. When it 
reaches the other side of the plateau, it once again 
meets the contour with an elevation of 100. Because you 
are now leaving a nested region, however, this signals 
that the elevation is no longer 100 feet, and, in this case, 
it should now be the base elevation of 0. 

There is a data structure that naturally resolves this 
problem: the stack. Each time the program encounters a 
contour, it compares the contour’s elevation to the top 
of the stack. If the elevation is different, it pushes the 
new elevation. If the new elevation is the same as the top 
of the stack, it pops the stack. In either case the current 
elevation is the number on the top of the stack. 


Using the Program 

Using the program is quite simple. The main program 
sets up a contour array (it must be larger than the 
expected number of contours) and a pointer to the tree 
of points as global variables. It then calls find__all__con- 
tours(), passing a pointer to the bit map to be analyzed. 
On return it calls make__hidlinpix() to assign elevations, 
which in turn calls make__grid() to calculate the grid 


Trace direction for 
exterior contour 


Trace direction for 
internal contour 


Z 





Figure 5: The trace for the external curve is counterclock- 
wise; for internal curves it is clockwise. 
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How to tell the difference 
between DESQview 2.0 and 





any other environment. 


G electing DESQview, 
the environment of 1—Lotus—1-2-3-5B8K-EGA 
choice, can give you the | ea VAD oes en toe eee 
productivity and power 
you crave, without the rer or erro 
loss of your old pro- Veet ence ts oe BO eae 
grams and hardware. CRC AED 

If you like your existing aah 

programs, want to use 
them together, transfer [iE 
data between them, | 
print, sort, communi- : | 
cate with or process- 


GREAT ATLA 


in-background, yet still Se 

have the need to keep Re (il preeeeeerereeceemanennmanneen 
in place your favorite ror iY ee pee Ih 
PC(8088, 8086, 80286 


or 80386), DESQview 
is the “proven true” Ce 
multitasking, multi- 
windowing environ- 
ment for you. Best of all, DESQview 2.0 is here now, 
with all the money saving, time saving, and productiv- 
ity features that others can only promise for the all- 
too-distant future. 

And with DESQview’s new graphics enhancements 
for Hercules, CGA, EGA, and VGA, Version 2.0 still 
offers the same award winning and pioneering fea- 
tures for programs that earned DESQview its leader- 
ship, only now you can also run desktop publishing 
programs, CAD programs, even GEM-™' Topview-*;' and 
Microsoft Windows-™ specific programs. In some cases 


Sais ed - 


you'll add as little as 10-40K to your system overhead. 


Now you can have multi-tasking, multi-windowing, 
break the 640K habit too and still get an auto dialer, 
macros, menus for DOS and, for advanced users, a new 
complete application programmer's interface capabil- 
ity. No wonder that over the years, and especially in 
recent months, DESQView, and now pe=e==aaz 
DESQview 2.0 have earned extrava- 
gant praise from some of the most 
respected magazines in the industry. 

“Product of the Year” by readers 
vote in InfoWorld. 

“Best PC Environment” by popu- 
lar vote at Comdex Fall in PC Tech 
Journal’s “System Builder” Contest. | L__vs*s 

“_T wouldn't want to run an IBM | 








DESQview is a trademark of Quarterdeck Office Systems. AboveBoard is a trademark of Intel Corporation. Hayes is a trademark of Hayes MicroComp 


cee LU ee ECL 





One picture is worth a thousand promises. 


or compatible 
computer without 
DESQview’—Info- 
World, Michael Miller. 
“A colossus among 
windowing environ- 
ments”... “will run 
almost anything’—PC 
Week, Marvin Bryan. 
“Windows, prom- 
ises, but DESQview 
delivers’—MICRO- 
TIMES, Birell Walsh. 
No other environ- 
ment has consistently 
pioneered features, open- 
ness, and productivity. 
See for yourself. Send in 
the coupon. The possi- 
bilities are endless with 
DESQview 2.0. 
Attention Programmers: For more information 
about Quarterdeck’s API, and future 386 program 
extensions, call us today. 


SYSTEM REQUIREMENTS 

IBM Personal Computer and 100% compatibles (with 8086, 8088, 80286 or 80386 
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3-D IMAGES 
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elevations. The current implementation converts the 
grid to a disk file that is then used as input to a 
hidden-line algorithm. 

The previous quick overview of the contour-analysis 
and grid-construction algorithms glosses over most of 
the gory details, such as coordinating progress and 
tracing curves. I'll now describe these in more detail. 


Find__all__contours( ) 

Find__all__contours(), as its name implies, is responsi- 
ble for coordinating the entire contour search. The 
progress of the contour-analysis algorithm is based on a 
queue (a first-in/first-out data structure). The queue is 
find__all__contours()’s means of communicating with 
the lower-level function find __contours( ). Find__all__con- 
tours() calls a function to enqueue the points on a 
contour of interest and then calls find__contours( ). 
Find__contours() then dequeues all points, and those 
on a descending arc are used as the starting points for 
rightward scans. 

The queue is built by tracing contours in a counter- 
clockwise direction and includes the location of each 
point on the contour as well as a chain code for the 
point. The chain code is an integer from 0 to 7 that 
indicates the direction moved from the previous con- 
tour point to the current contour point, as shown in 
Figure 6, below. Thus a chain code of 0 indicates a 
movement to the right, 2 is a movement up, 4 is to the 


x 


Figure 6: Chain codes 








[ ) 
Trace around the external contour 








Figure 7: Find__contours( ) searches the interor of a 
§iven contour for nested contours. 








left, and 6 is down. Find__all__contours() initiates the 
entire contour analysis by enqueuing the borders of the 
image—that is, by treating the border of the image as a 
contour itself. Because only the left-hand side of the 
image will have chain codes in the range 5 to 7, only the 
left side really needs to be enqueued. Find__all__con- 
tours() then calls find__contours(), which in turn uses 
the queue to do a single-level contour search. Any 
contours found by find__contours() are placed in the 
contours array. | 

On return from find__contours(), there will usually be 
some contours stored in the contour array. Find__all__ 
contours() then steps through each unsearched con- 
tour in the array. At each iteration, find__all__contours( ) 
calls a function to enqueue (by tracing) the points on the 
contour and once again calls find__contours() to search 
the interior of the new region. When the interiors of all 
contours in the array have been scanned, the search is 
complete. 


Find__contours( ) 

Find__contours() is responsible for finding a single level 
of contours nested within a given region, which is that 
region enqueued by find__all__contours() (see Figure 7, 
below). Because the queue was created by tracing the 
contour in a counterclockwise direction, the contour 
interior will be found by scanning to the right of points 
whose chain codes are in the range 5 to 7. For each 
chain code in this range, the function search__x() is 
used to perform the actual scan of the bit map. 

The scan can return either of two results: it can 
encounter a known contour (which can be the other 
side of the enclosing contour, the edge of the bit map, 
or an internal but previously discovered contour), or it 
can find a new contour. If it finds a new contour, then 
find__contours() calls trace() to traverse the new con- 
tour in a clockwise direction. Once again the trace 
enqueues the points on the contour. When 
find__contours() reaches these points in the queue, it 
will result in the scan starting on the right side of the 
new contour and still moving right. The result is that the 
interior of the enclosing contour is scanned, except for 
the interiors of any nested contours. 

There are two problems with this general procedure: 
tabletops and peaks (see Figure 8, below, for examples). 
Tabletops are horizontal runs to the right. The problem 
is that the point on the downward arc will start the 
scan. The scan will immediately encounter a point on 
the contour (that is, part of the tabletop) and _ stop, 
thinking (incorrectly) that it has reached the other side. 
The solution to this problem is to look at the next chain 
code as well as the current one. If the current chain 











A tabletop 


A peak 





Figure 8: Examples of a tabletop and a peak 
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code was 0 and the next chain code is 5-7, then the 
program has just reached the end of a tabletop and it 
should start to do a scan. 

A peak is a single pixel at the top of a contour. Peaks 
present another problem: they are never on a downward 
arc and will never initiate a rightward scan. A peak can 
result in at most a single scan line being skipved. Thus, 
in the worst case, the only contour that can be missed 
is a single line of pixels. Because this is a degenerate 
case, I did not feel it needed to be resolved. 


Search__x() 

Search__x() scans to the right of a given point until it 
finds a black pixel or reaches the edge of the bit map, as 
shown in Figure 9, below. It then returns a value of 1 if 
the pixel is on a new contour or 2 if it is either on a 
known contour or at the edge of the bit map. A pixel has 
been seen before if it can be found in a tree containing 
the pixels lying on contours. 

The interrogation of individual pixels on an off-screen, 
bit-map image can be done in several ways. The Macin- 
tosh Toolbox contains the functions GetPixel() and 
GetCPixel() (in the Macintosh II’s Color OQuickDraw). 
However, I have used an assembly-language function, 
called getpixel(), that accomplishes the same task by 
accessing the bit map directly. This getpixel() is quite 
fast, but it lacks the flexibility and generality of its 
Toolbox counterparts. Any machine that supports bit- 





Figure 9: Search__x( ) starts at a given pixel and searches 
to the right until it hits a contour or the edge of the 
image. 


Starting 
pixel 





Figure 10: The search direction and sequence of pixels 
searched during a contour trace ensures that the trace 
always follows the outermost border of the contour. 


mapped graphics will have counterparts to getpixel() or 
GetPixel() (the Microsoft C, Version 5.0, library now has 
a __getpixel() function). 


Trace( ) 
Trace() is the real workhorse of the contour-analysis 
algorithm. It traces a given curve in a clockwise or 
counterclockwise direction, and it simultaneously up- 
dates both the queue and a tree of points lying on the 
contour. 

In order to follow a contour, trace() uses the chain 
codes described earlier. An example can help explain 
the process. Assume that the program will traverse a 
contour counterclockwise. The calling function passes a 
point on the exterior of the contour to trace(). First, the 
trace sets the initial search direction to 6 (down). It then 
looks at pixels with chain codes 5, 6, and 7 from the 
starting point—that is, “search direction-1,” “search 
direction,” “search direction + 1,” all modulo 8 (see Figure 
10, below). Note that the search starts the furthest to the 
exterior as is possible (a pixel at chain code 4 would 
mean that the starting pixel is not on the exterior). 

The first hit then becomes the new search direction. 
If there is no hit at all, trace adds 2 to the search 
direction (modulo 8) and tries again. This process con- 
tinues for three iterations at most, to prevent an infinite 
loop if the contour consists of a single point. 

Note that if there is a break in the contour, this 
algorithm will circle around the end point and return 
back to the starting point. Also note that trace() always 
proceeds around the exterior of a contour. If the con- 
tour is more than one pixel thick, trace() will ignore the 
interior pixels. These points will be found later while 
scanning the interior of the region. 


Building the 3-D Image 

As indicated in the overview, the contour analysis itself 
is only the first step in producing a projection of the 
contour map. Once the analysis is complete, it must be 
converted into a form that a hidden-line algorithm can 
use as input. For purposes of demonstrating the con- 
tour analysis, I have used an algorithm published by L. 
Ammeraal in Programming Principles in Computer Graph- 
ics. This requires two further steps after the analysis 
itself. 

First, the data from the analysis must be used to 
construct a 2-D array, with the value of each element of 
the array being the elevation at that point. This is done 
by the function make__grid(), as described in the over- 
view. 

Next, the array itself must be converted into a file that 
can be used as input to the hidden-line algorithm. This 
is done by the function make__hidlinpix(). A small 
section of this output file is shown in Table 1, page 28. It 
starts with the coordinates of the midpoint of the object 
to be drawn. Then follows a section that lists all the 
points in the array and their spatial coordinates (x, y, z). 
Thus point 1 is at spatial coordinates (0.0, 0.0, 0.0), 33 is 
at (0.0, 1.0, 0.0), and so on. 

The key to the hidden-line algorithm is the following 
section, beginning with the word Faces:. This is a 
decomposition of the grid into triangular faces. Trian- 
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gles are used because all points on a triangle in 3-D 
space are located on the same plane (see Ammeraal’s 
book for further explanation). Each face is defined by its 
three corner points listed in counterclockwise order: for 
example, the file shown here indicates that points 1, 34, 
and 2 form a triangular face. The points 1, 2, 33, and 34 
form the corners of a rectangle. The program has broken 
this rectangle into two triangular faces: 1, 34, and 2; and 
1, 33, and 34. The minus sign for point 34 indicates that 
the line segment from point 1 to point 34 should not 
actually be drawn, in this case because it forms a 
diagonal across a rectangle. 

In fact, the grid faces are actually defined twice in the 
file: once as the top side (the normal viewpoint) and 
once as the under side; that’s the reason for the appar- 
ent redundancy in the description of the faces. This 
technique allows you to view the grid both from above 
and below (underground if this were a topographic 
map!). This file is then read and processed by the 
program hidlinpix. The result is shown in Figure 2. 


Portability and Optimization 
The contour-analysis algorithm was written and tested 
on a 512K Macintosh and on a Macintosh II using 
Lightspeed C. In order to simplify the development and 
testing process, I modified a copy of the Lightspeed 
stdio library so that the console window opens to cover 
the lower quarter of the screen (instead of the entire 
desktop, as it normally does). The program then opens 
two windows: a window that shows the source image 
and a window that displays the progress of the contour 
analysis (a sort of debugging animation). The algorithms 
themselves are intended to be portable, but I have not 
actually tested the code in other environments, so there 
could be surprises in store. 

I have used the Macintosh’s graphics abilities to 
animate the code, so if you find the written explanation 


15.500000 12.500000 0.000000 





Table 1: A sample of the output file from the contour 
analysis 
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of the program complex, and if you are able to view the 
animation, you may find that it makes visual sense. 


There is some redundancy because of the need to trace 
each contour twice (once when first discovered, once 
again to search its interior), but the vast majority of 
points in the image are visited only once. 

The code shown here uses one important optimiza- 
tion: the avoidance of the memory-management library 
supplied with Lightspeed C (that is, it avoids the use of 
malloc(), free(), and so on). Instead, I have used a 
nonstandard function called getmem(). The rationale 
for this action is explained in detail in the source code 
to getmem() itself. | was reluctant to include getmem() 
with this article (it lacks its counterparts, such as 
freemem()), but the speed improvement is quite dra- 
matic; without getmem() the program is slow, even on 
the Macintosh II. 


Miscellaneous Functions 

The contour analysis depends on several different data 
structures. I have avoided reinventing the wheel by 
using previously published code, particularly from some 
of Allen Holub’s columns in DDJ. These borrowings 
include the queue and AVL tree code published in June 
1985 and August 1986, respectively. 


Conclusion 

For the eye and brain, identifying objects and relation- 
ships in the visual world seems effortless. The contour 
map analysis algorithm is an example of the complexity 
of this process when performed by machine, even when 
restricted to a simple class of images. The algorithm 
vividly demonstrates the wide gulf between human 
cognition and an algorithmic procedure. In spite of the 
constraints placed on it, though, the machine is able to 
provide services that are impossible for the eye/brain; 
specifically, restoring a 3-D image from a 2-D representa- 
tion. 


Availability 

All the source code for articles in this issue is available 
on a single disk. To order, send $14.95 to Dr. Dobb's 
Journal, 501 Galveston Dr., Redwood City, CA 94063, or 
call (415) 366-3600, ext. 216. Please specify the issue 
number and format (MS-DOS, Macintosh, Kaypro). 
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A Graphics Toolbox 





hat Borland’s Turbo C comes 
PBS ccsirpes with 350 functions 

and macros is pretty impres- 
sive, until you realize that not one 
of them has anything to do with 
graphics. To fill this void I’ve con- 
structed my own version of a graph- 
ics toolkit for Turbo C. 

To make the information more 
easily digestible, I've divided the pro- 
ject into two bite-size articles. This 
piece introduces a basic library of 
graphics calls and shows how to 
put them to work in pixel-oriented 
graphics; Part 2 (to appear in Decem- 
ber's DDJ) will combine this graph- 
ics library with data structures and 
C functions to control pop-down 
menus, dialog boxes, and other ap- 
pearance features that users have 
come to expect in contemporary soft- 
ware. 


The MS-DOS Underpinning 

IBM PCs, or equivalents, rely on 
ROM BIOS interrupt 10h (16 deci- 
mal) for their graphics capabilities. 
This interrupt furnishes “general- 
ized" functions for various aspects 
of text and APA (all-points address- 
able, or pixel-oriented) graphics. I 
‘say “generalized” because the ROM 
BIOS accommodates numerous 
modes, some of which may not be 
available on certain hardware con- 
figurations. For example, the ROM 
BIOS handles video modes for the 
EGA monitor and the PCjr that don’t 
exist when a CGA or monochrome 
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PC graphics 





adaptor is present in the system. 

There are 16 core functions in the 
ROM BIOS video services. These func- 
tions govern display aspects such 
as the position or shape of the 
cursor, the video mode (text and 
APA options), the active display 
page, character output, pixel graph- 
ics, and others. 

The ROM BIOS functions are not 
known for their speed. In general, 
they're adequate in text operations 
but less than adequate in APA graph- 
ics. You could devise much faster 
pixel manipulations by writing to 
the display memory directly, and 
indeed, many commercial packages 
do just that. The speed advantages 
of this approach, however, are ob- 
tained with a high risk of incompati- 
bility: environments such as Win- 
dows and OS/2 are much more intol- 
erant of direct display memory 
access. 3 

In selecting the ROM BIOS trade- 
off rather than directly writing to 
screen memory, I've deliberately 
opted for the more conservative ap- 
proach on two grounds: first, the 
ROM BIOS calls are the approved 
method for doing graphics and 
future machines will probably sup- 
port them within the definition of 
“well-behaved”; and second, faster 
processors will cancel out their 
slower speed, resulting in a zero 
loss/gain from the user's perspective. 


for Turbo C 


While this is an arguable position, 
and no doubt some readers will dis- 
pute it, at least you know my under- 
lying assumptions. Now let's see 
how to access those ROM BIOS func- 
tions. 


ROM BIOS Calls from Turbo C 
Like DOS itself, the ROM BIOS rou- 
tines under interrupt 10h expect a 
function code in register AH, with 
other parameters passed as required 
by specific functions in the rest of 
the registers. Any number of Micro- 
soft, IBM, and commercial publica- 
tions document the ROM BIOS calls; 
for this project I referred to Ray 
Duncan's indispensable Advanced 
MS-DOS (pages 399-420). 

ROM BIOS calls are made using 
the Turbo C int86() function. Regis- 
ters are set up in a structured vari- 
able bound to the REGS union as 
defined in Turbo C’s DOS.H header 
file. 

The REGS union includes all the 
general registers of the 80x86 line of 
processors and furnishes a notation 
convention for byte (8-bit) and word 
(16-bit pair) registers. For example, if 
you declare the structured variable 
as union REGS r; you can load the 
value OCh into byte register AH with 
r.hah=0x0C; and the same value 
into word register BX with 
r.X.bx = Ox0C;. The structure notation 
-h. indicates a byte register, and no- 
tation .x. indicates a word register. 
The REGS union encompasses ll 
byte registers (AH—DL ) and all word 
registers (AX—DX ) as well as SI, DI, 
and the flags. It does not include 
the segment registers (CS, DS, ES, 
and SS), which are irrelevant to 
ROM BIOS calls. 

To call a ROM BIOS video service 
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routine, you place the function code 
in r.h.ah and the required parame- 
ters in other registers and execute 
the Turbo C int86() function int86 
(0x10, &r, &r);. 

Function int86() performs the fol- 
lowing: 


® saves the caller's registers 

@ loads the CPU registers from the 
union whose address is passed in 
the second argument 

® executes the interrupt given in the 
first argument 

@®on return from the ROM BIOS, 
places register contents in the union 
passed as the second address argu- 
ment (the same as the first address 
argument in this example) 

®@ restores the caller’s registers 
@resumes execution in the calling 
program 


On resumption you can pluck any 
BIOS-returned value from the vari- 
able bound to the REGS union—r in 
the examples shown here—by using 
the appropriate register-type nota- 
tion. 

For example, suppose you want 
to determine the current cursor po- 
sition in video page 0. The setup is: 


r.h.ah = 0x03; /* read position */ 
r.h.bh = 0; /* in page 0 */ 
int86 (0x10, &r, &r); /* call BIOS */ 


Afterward you can fetch the row 
with cursRow=r.h.dh; and_ the 
column with cursCol=r.h.dl;. This 
is the same as, but easier than, per- 
forming an equivalent call in assem- 
bly language. An added benefit is 
that the structured variable bound 
to the REGS union retains the re- 
turned register values for as long as 
it exists or until the next call to the 
ROM BIOS routines. Thus, you can 
fetch the returned register values at 
your convenience. You can translate 
these ROM BIOS calls into C func- 
tions. 


Syntactic Sugar 

Many of Turbo C’s 350 functions 
and macros are simply DOS and 
ROM BIOS calls sugar-coated to look 
like C. In the same spirit, you can 
pack a little sugar around the ROM 
BIOS video service routines and call 
them “a basic library of Turbo C 
graphics functions.’ 
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Listing One, page 82, shows an 
#include file, VIDEO.I, which con- 
tains the fundamental 16 ROM BIOS 
calls plus a couple of extended func- 
tions that synthesize several calls. 
Any program that has to perform 
graphics operations can obtain the 
full set of functions with the simple 
statement #include <video.i> call- 
ing whichever specific ones it needs. 
Because the source code is included 
in the compilation, the functions 
will automatically adapt to the 
memory model currently in use. 
Also note that every function is de- 
fined before being referenced by 
other functions, thus eliminating 
any need for a header file contain- 
ing prototypes (if you program using 
ANSI C conventions). 

The down side of using source- 
level #include files such as VIDEO.I 
is that they waste memory. Turbo C 
doesn't optimize itself by pulling out 
unreferenced code. As a result, all 
the code for all the functions ap- 
pears in every .EXE program that 
#includes VIDEO.I, even if the pro- 
gram calls only a single function. 
My solution to this is to make the 
functions into a linkable library (.LIB 
file). 


Creating the Libraries 
Building and linking with user-cre- 
ated libraries in Turbo C can be a bit 
of a chore. In the small model, the 
inclusion of VIDEOI adds 1,376 
bytes to the .EXE file; in the large 
model, 1,520 bytes. The overhead con- 
sists of total bytes minus the sizes 
of the functions you actually call. If 
that amount of code space is impor- 
tant to you, it might be worth turn- 
ing VIDEO.I into one or more librar- 
ies so that only those routines that 
are actually used get linked into the 
EXE file. 

The first step is to write a file 
VIDEO.H that defines all the graph- 
ics function prototypes. Listing Two, 
page 84, shows this header file, 
which you should #include in any 
programs that link with the video 
library. You'll also use VIDEO.H in 
creating the library’s individual mem- 
bers. Each function file should #in- 
clude VIDEO.H at the top. Purists 
might also want to add comments 
explaining what the function does 
and to what library it belongs. 

When all the functions have been 


broken out into separate files, com- 
pile them one by one with Turbo C 
to create a matching set of .OBJ files. 
Now your're ready to make the li- 
brary. 

The .OBJ files produced by Turbo 
C are in Microsoft-compatible 
format, so you can use the DOS LIB 
utility to combine them into a link- 
able library. To produce a library 
called VIDEOS.LIB containing the 
functions video mode() and active- 
page(), for example, type: 


LIB VIDEOS + VIDEOMODE + ACTIVE- 
PAGE; 


Later you can add setmode() and 
setcursor() with the similar: 


LIBVIDEOS + SETMODE + 
SETCURSOR; 


You can, of course, add more than 
two modules at a time to the library 
simply by specifying the library 
name first, followed by an entire 
command line of module names 
separated by plus signs. 

The S on the end of the library 
name is a convention borrowed 
from Turbo C to indicate the 
memory model; here, it is assumed 
that you compiled the separate 
units in the small model. 

To link with this library, first make 
sure it’s in the directory where 
Turbo C looks for source files (not 
in the \TURBOC\LIB directory with 
the vendor's libraries). Put the entry 
VIDEOS.LIB in your project file (.PRJ). 
Turbo C then knows that you want 
to link to a user-created library and 
where to find it. 

Repeat the compilation and LIB 
procedures for each memory model 
you use, varying the library file name 
accordingly (VIDEOT.LIB, 
VIDEOC.LIB, and so on). You'll have 
to modify the library name in your 
PRJ file if you decide to change 
memory models during the develop- 
ment of a program. 

Because it takes an hour or two 
to get through this whole business 
of making libraries, weigh the price 
in time investment vs. saving a thou- 
sand bytes or so in the .EXE file. It’s 
your choice. 


Adapting to the Adaptor 
The box accompanying this article 
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(page 34) describes how to deter- 
mine which video adaptor is pre- 
sent in the machine. Refer to it for 
the “theory”; this article concen- 
trates on the practical aspects of 
applying the adaptor identification 
to APA graphics, specifically on the 
CGA and EGA. The principles dis- 
cussed here are applicable to other 
adaptors, such as the Hercules, as 
well. 

In text modes there's little adapt- 
ing to do for a specific display type. 
The screen is always 25 rows high 












Add C++ to 
your favorite 
C Compiler 


¢ Object-oriented C 


e Strong type-checking 


¢ Works with your 
present C Compiler 


and either 40 or 80 columns wide. 
The 40-column mode only applies 
when writing text on a 320 X 200- 
pixel graphics screen; otherwise 
you're always in 80-column mode. 
The monochrome display adaptor 
(MDA) can’t produce colors, but it 
can do normal, intense, underlined, 
and blinking (attributes remarkably 
similar to colors). Thus, although 
the demo program later in this arti- 
cle does a few text tricks using the 
video library, I'm not going to dis- 
cuss them here. Because text graph- 
ics has its own set of problems and 
solutions, I'll save that discussion 
for Part 2. 








DESIGNER C++ 


BENEFITS: 


> Works with the C Compiler you 


now use 


m You can incrementally add C++ 
features to C (switch-selectable) 


®» Makes C more suitable for 
— very large programs 


— more sophisticated applications 


& More reusable code 


> Resilient and bug-free code 


The only commercially-available C++ customized 
to operate on PC’s, micros, minis, and main- 
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VAX C SUN C 
ULTRIX C MICROSOFT’ 
APOLLO LATTICE 
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HP-9000 UNISOFT 





FEATURES: 

e Fully compatible with 
AT&T C++ standard 

¢ Optional strong type 
checking 

e Data abstraction 

° Overloading of func- 
tion names and 
operators 

e Dynamic typing (virtual 
functions) 

e User-defined implicit 
type conversion 

¢ Works with Sun’s 
dbxtool 
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pilers: C, Pascal, FORTRAN, Ada, LISP — 
Assemblers/Linkers — Symbolic Debug- 
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“Lattice and Microsoft versions of Designer C++ are known as 
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When your software knows the 
video adaptor it’s working with, it 
can alter its behavior to suit. After 
identifying the video board, the soft- 
ware can then adjust its coordinate 
system or color selections to fit the 
APA display. Here, in the interest of 
limited space, I'll show you how to 
make a program dynamically modify 
its coordinate system. 

Suppose, for example, you want 
to draw a border around the screen, 
Starting 15 scan lines (y points) 
below the top and ending 15 above 
the bottom. The width in either case 
is 640 pixels and the top of the 
rectangle is at y=15. However, the 
CGA has a mere 200 vertical scan 
lines, whereas the EGA has 350. 
Therefore, you can set up an assign- 
ment condition such as: 


| if (adaptor = = cga) 


bottom = 199-15; 
else 
bottom = 349-15; 


The trick here is to locate the 
bottom of the box, which is deter- 
mined by the adaptor type. The ver- 
tical line-drawing routine can then 
repeatedly call the plot() function 
from the video library, with the 
number of calls—pixels plotted— 
being determined at run time by the 
type of adaptor available. Similarly, 
the horizontal line-drawing routine 
can draw the bottom at the appro- 
priate elevation (y=184 or y=334, 
for CGA and EGA, respectively). 

This is a somewhat simplistic sce- 
nario implemented in the demo pro- 
gram; a more complex application 
might consider CGA the default and 
supply a multiplier of 1.0 in calculat- 
ing y coordinates. If an EGA is pre- 
sent, however, the program can sub- 
stitute 1.75 for the y multiplier (be- 
cause 350/200 = 1.75). Furthermore, if 
four-color graphics are required, it 
can use 1.0 as the multiplier for the 
default (mode 04h=CGA 320 X 200 
four color) and substitute 2.0 if an 
EGA is present (mode 10h=EGA 
640 X 350 four color). Thus the pro- 
gram dynamically redefines its coor- 
dinate workspace in both dimen- 


| sions based on the available video 
_ adaptor. 


A program that does extensive 
APA graphics will rely on the video 
library's plot() function, which plots 
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Once again, 
Compaq 
raises the standard 
ot performance 
for personal computers. 


This time 
by a factor of two... 
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The new COMPAO DESKPRO 386/20" 


Last year, we introduced the 
COMPAQ DESKPRO 386™ the 
most advanced personal com- 
puter in the world. Now the world 
has two new benchmarks from 
the leader in high-performance 
personal computing. The new 
20-MHz COMPAO DESKPRO 386/20 
and the 20-lb., 20-MHz COMPAO 
PORTABLE 386 deliver system 


It simply works better. 


performance that can rival 
minicomputers. Plus they intro- 
duce advanced capabilities, 
without obsoleting your invest- 
ment in software, hardware 
and training. 

Our new computers employ 
an industry-standard 20-MHz 
80386 microprocessor and so- 
phisticated 32-bit architecture. 


But to make these two of the 
world’s fastest PC's, we did 
more than just increase the 
clock speed. 

For instance, both are built 
around a concurrent bus archi- 
tecture. Two buses—one for 
memory and one for peripherals— 
eliminate information bottle- 
necks, allowing each component 
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and the new 20-MHz COMPAO PORTABLE 386" 







to run at its maximum speed. vantage of 386 technology. And 
Together, they insure the highest both run new MS-DOS*/BASIC 
system performance without Version 3.3 as published by 
sacrificing compatibility with Compaq. With it, our new porta- 
industry-standard peripherals. ble and our new desktop can 

Both computers offer disk break the 32-megabyte limit on 
caching. Both offer the most file sizes that handcuffs other 
memory and storage within their PC's, allowing you to build files 
classes. Both let you run soft- up to the size of your entire fixed 
ware being written to take ad- disk drive. 


And from now until December 
31, 1987, both computers come 
with a free package of new 
Microsofts Windows/386 Presen- 
tation Manager. It provides multi- 
tasking and switching capabilities 
with today’s DOS applications to 
make you more productive. But 
that's just the beginning. To find 
out more, read on. 
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System Board with 20-MHz Cache Memory Controller 


135-MB Tape Backup 


Weitek Coprocessor Board 


20-MHz 80386 processor 


300-MB Fixed Disk Drive 


16 MB of 32-bit RAM 








* 
\ 
advanced memory caching 
The most powerful personal scheme with memory and 
| ; h d peripheral buses that operate 
| concurrently. 
computer IT} t © WO Complementing the speed of 
the microprocessor is the new 
The COMPAQ DESKPRO 386/20 inthe world today and even advanced 20-MHz Intel® 82385 
is an impressive 50% faster than many minicomputers. Cache Memory Controller. Like 
16-MHz 386-based personal The big reason is the new an efficient secretary that keeps 
computers. Even more impres- COMPAQ Flexible Advanced frequently used information | 
sive is the fact that it's up to 25% Systems Architecture, which close at hand, it allows the 
faster than other 20-MHz 386's. optimizes overall system microprocessor to operate at 
That's because the processor is throughput while maintain- O-wait states 95% of the time. 
just one small part of how the ing full compatibility with While one bus handles these 
COMPAO DESKPRO 386/20 industry-standard peripherals. high-speed operations, another 
outperforms every other PC It does this by combining an simultaneously handles periph- 


It simply works better. 





how to get to 20 MHz, 
most out of 20 MHz. 
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erals operating at the industry- 
standard 8 MHz. 

This flexible approach allows 
you to dramatically increase 
system throughput while pre- 
serving your investment in mon- 
itors, disk drives, and expansion 
boards. It can also accommodate 
today’s and tomorrow's most 
advanced peripherals without 
constraining their performance. 

Take options like our new 
Weitek™ Coprocessor Board. 
Never before offered in a PC, 
it can increase the speed of 
calculation-intensive, engineer- 


ing and scientific applications 
by a factor of six, giving the 
COMPAQ DESKPRO 386/20 
the performance of a dedicated 
engineering workstation at a 
fraction of the cost. 

Compaq also provides 130- 
and 300-Megabyte Fixed Disk 
Drives with some of the indus- 
try's fastest access times. And 
when used with disk caching 
software, they represent the 
highest-performance storage 
subsystems available. 

As for memory, Compaq 
offers 32-bit high-speed RAM. 





One full megabyte comes stan- 
dard and is expandable to 16 
megabytes without using an 
expansion slot. Plus, we in- 
cluded the COMPAO Expanded 
Memory Manager. It supports 
the LIM standard so your soft- 
ware can break the 640-Kbyte 
barrier even before OS/2™ is 
released. 

As tasks become more com- 
plex and users demand more 
advanced capabilities, Compaq 
responds by raising the standard 
of performance in personal 
computing. 
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Everyone expected Compaq 
But no one 








Pound for pound, it's the world's 


Pound for pound it 1S the most powerful computer. Period. 


Like the recent COMPAQ 


world's most powerful computer PORTABLE III™ which changed 


the shape of full-function porta- 
ble computing, the COMPAO 








Compaq has long been recog- dreamed that it would offer 100 PORTABLE 386 makes no com- 
nized as the world leaderin both megabytes of storage, disk cach- promises. It offers more speed, 
80386 technology and portable ing, and much, much more. memory, storage and features 
computing. So it isn't surprising Our newest 20-lb. portable than any other portable PC. It 
that we would combine the two. computer goes far beyond an runs your current software up to 

But no one expected the new 80386 microprocessor with a 25% faster than 16-MHz 386 
COMPAQ PORTABLE 386torun handle. It's not just the most PC's. Beyond that, its perform- 
at 20 MHz. And no one even advanced portable in the world. ance in calculation-intensive 


It simply works better. . 
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applications is increased even 
more when you add an optional 
20-MHz 80387 coprocessor. 

Memory? Get one megabyte 
of 32-bit, high-speed RAM stan- 
dard or go as high as 10 MB inter- 
nally. And like all of the 
COMPAO 386-based PC's, it fea- 
tures the COMPAO Expanded 
Memory Manager. 

With our high-performance 
100-megabyte internal fixed disk 
drive, you can actually fit 500 lbs. 
of data-filled pages into a 20-lb. PC, 


unsurpassed storage for a porta- 
ble. If that's too much for you, we 
also offer a 40-megabyte model. 
We've become famous for build- 
ing desktop computer capabilities 
into our portables without leav- 
ing anything out. The COMPAO 
PORTABLE 386 is more proof. It 
has a high-resolution, 640 x 400, 
10-inch plasma display; a full- 
size, portable enhanced key- 
board; two industry-standard 
expansion slots in a lightweight, 
optional plug-on unit; a choice 


to introduce a 386 portable PC. 
expected all this. 


100-MB Fixed Disk Drive 


40-MB Tape Backup 


20-MHz 80386 processor 


10 MB of 32-bit RAM 


2400-baud Hayes-compatible modem 


51/4-Inch 1.2-MB Diskette Drive 


between an optional 2400- or 
1200-baud Hayes-compatible 
modem; a full-size 51/4-inch 1.2- 
MB diskette drive; even an op- 
tional 40-MB tape backup. 

These features, combined 
with the ultimate in portable 
performance, make the 
COMPAO PORTABLE 386 the 
biggest PC this small. 
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Compaq moves you ahead 
without leaving you behind. 


Compaq offers the most complete 
line of high-performance 386. 
solutions. They all run industry- 
standard software and hardware, 
protecting the investments you've 
already made. 

At the same time you won't be 
left behind when other technolo- 
gies become important. Mullti- 
task with existing applications 
using Microsoft Windows/386 
Presentation Manager. Add VGA 


It simply works better. 
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graphics if you wish. Run OS/2 
when it's available. And now 
31/2-inch drives are even an op- 
tion for our desktops. 

We optimize the most ad- 
vanced technology while main- 
taining compatibility with the 
past, present and future. This 
makes COMPAO PC's a wise 
decision for serious business 
users. Because at Compaq, we 


don't burn bridges, we build them. 
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See the COMPAO DESKPRO 386/20 
and COMPAO PORTABLE 386 at an 
Authorized COMPAO Computer Dealer. 
And from now through December 31, 1987, 
get Microsoft Windows/386 Presentation 
Manager free when you buy a 386-based 
COMPAO computer. For more informa- 
tion, call 1-800-231-0900, Operator 40. 
In Canada, call 416-733-7876, Oper- 
ator 40. 

Weitek™ Lotus” Intel® Microsoft® MS-DOS? 
Hayes, and OS/2™ are trademarks of their 
respective companies. 


©1987 Compag Computer Corporation. 
All rights reserved. 
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GRAPHICS TOOLBOX 
(continued from page 32) 


individual pixels, but it could clearly 
benefit by some higher-level draw- 
ing routines. 


Adding APA Graphics 

Ultimately, all objects appearing on 
the display are composed of three 
kinds of lines: vertical, horizontal, 
and diagonal. Even a solid such as a 
block cursor or a complex filled poly- 
gon consists of some number of con- 


For efficiency 
I developed 
orthogonal 
line routines 

and a separate, 
less efficient 
routine 
for diagonals. 


tiguous lines arranged so as to ap- 
proximate a form that the eye recog- 
nizes. This suggests enhancing the 
video library with line-drawing rou- 
tines that you can employ to create 
shapes. 

There's less overhead in drawing 
orthogonal lines (vertical or horizon- 
tal) than in drawing diagonals. Why? 
Because diagonals proceed along a 
slope, or ratio between vertical and 
horizontal motion. Slopes are, 
almost without exception, fractional 
numbers that entail floating-point 
operations, which are inherently 
slower in computers. Slope is not 
an issue when drawing a line that is 
perfectly vertical or horizontal, and 
thus it can be done with more effi- 
cient integer arithmetic. 

For efficiency, I developed orthogo- 
nal line routines and a separate, less 
efficient routine for diagonals. The 
latter is called if I know or suspect 
that the line is not orthogonal. 

In the orthogonal routines, vou 
pass the start and end points, the 
axis coordinate along which the line 
is to proceed, and the color of the 
pixel you want plotted. The routine 
then uses integer arithmetic to con- 





trol a loop that plots the individual 
points. Listing Three, page 84, sup- 
plies two such routines, called 
hdraw() and vdraw(), for horizontal 
and vertical lines, respectively. 

Because callers will probably use 
these routines frequently, passing 
variables as arguments, you should 
not place on them the burden of 
ordering the start and end points to 
suit the expectations of the routines. 
Consequently these routines sort 
the start and end into the low-to- 
high order they expect. The calls 
hdraw (35, 231, 20, 1); and hdraw 
(231, 35, 20, 1); both produce exactly 
the same result: namely, a horizon- 
tal line between x coordinates 35 
and 231 inclusive along y coordinate 
20 in color index 1. 

In considering the diagonal rou- 
tine draw/(), it’s important to recog- 
nize several factors: 


@ The requested line might be or- 
thogonal, resulting in a slope that is 
either 0 (horizontal) or infinity (verti- 
cal). To avoid division-by-zero fail- 
ures, the routine must anticipate 
these problems in advance and take 
corrective action by preassigning the 
correct stepping value. 

®@ The diagonal must move along the 
axis that results in the densest line, 
or in other words, along the axis 
that has the greatest distance to 
travel. If the motion is greater along 
the x axis than along the y, the more 
dense line results from plotting each 
y intersection per x increment. Thus 
the routine must determine the axis 
with the greatest movement and 
make that the controlling axis. 
@The stepping value along the 
shorter-motion axis is a floating- 
point number that is the ratio of 
short-motion to long-motion. For ex- 
ample, if the x axis moves +120 
points and the y axis —30, the x axis 
is controlling and the v moves —0.25 
points per x (—30/120 =—0.25), which 
is its slope relative to the controlling 
axis. 

@The stepping value is additive. 
That is, for each controlling incre- 
ment, the stepping value is added 
to the current controlled value. This 
motion accumulates and is trun- 
cated or rounded for each control- 
ling step, according to the way the 
routine is written (Listing Three trun- 
cates it). 


* Graphix: the 
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Sometime next year, C will be 20 years 
old. If you're starting a project that will 
last into the next decade, you should at 


least pick a language designed in this one. 


We supply libraries for the safest choice: 


MAODULA:2 


Our Products Include: 


* Repertoire ®: 5 high-level subsystems and 


hundreds of low-level routines for M2. Release 
1.5 includes fast screen design/ display system 
for virtual windows that scroll horizontally 
and vertically, plus multi-line input fields, help 
that’s context sensitive to field level, menus, 
forms, etc. (not a code generator; keeps frames 
on disk until display). Also includes text editor 
and fast DBMS with variable-length keyed 
records, garbage collection, damaged file 
recovery, named and ‘hested fields. Stores 
anything: bitmaps, text, linked lists, binary 
records, etc. Includes full source (over § 

600K) and 300 page manual......... 89 


* EmsStorage™ advanced, high-level memory 


manager that detects and uses LIM 
Expanded Memory if present, or DOS 
memory if not; lets users conserve scarce 
DOS memory for other programs, and lets 
larger programs run under Logitech's 
debuggers. Provides automatic garbage 
collection and MS- Windows-like interface 
(lock/ unlock functions) for porting $ 

programs to MS Windows. ....... 49 


Modula-2 interface to 
MetaWINDOW, the fast professional 
graphics system PCT] named 7/85 Product 
of the Month. Supports multiple fonts, over 
30 display adapters, and hundreds of modes. 
Includes full MetaWINDOW 
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* ModBase: a B+Tree DBMS that uses a file 


format compatible with Ashton-Tate’s 
dBase III. Provides indexing and file 
manipulation routines for use independent 
of dBase; billions of records per file. ¢ 

Includes: full source code. ss... . 4.40% 89 


* Macro2: a macro preprocessor for Modula- 


2; provides inline expansion of functions, 
include files, conditional compila- 5 
tion, etc. Includes full source code: . 89 


* Full source code for Make and Xref utilities; 


customize them to work exactly as 
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All available exclusively from PMI; dealer 
inquiries welcome. 
Stony Brook, FTL and ITC; all kbraries 
available as DOS LINK-compatible object 
modules, 
languages. Full documentation for these and 
many other products available on free demo 


disks. 


Versions for Logttech, 


useable by other MS-Standard 


VISA/MC 
AMEX/COD/PO 


Py 


4536 SE 50th 
Portland, OR 97206 


(503) 777-8844 
BIX: pmi 

CIS: 74706,262 
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Identifying the Video Adaptors oi IBM PCs 


ROM BIOS interrupt 10h on IBM PCs 
and compatibles furnishes video serv- 
ices to accommodate a variety of 
hardware configurations. Although 
many of the calls—notably those deal- 
ing with text—are device independ- 
ent, others are device specific. If 
your graphics software is to func- 
tion effectively in this kind of vari- 
able environment, it must adapt its 
behavior to suit the hardware. And 
to do that, it must first find out 
what the video hardware is. 

This isn’t as easy as it might 
sound. Programs that want to deter- 
mine the video capabilities at their 
disposal usually have to look in sev- 
eral places, piecing together many 
clues. 


Adaptor 

undefined! 

40 by 25 B&W text, color 
graphics? 

80 by 25 text, CGA? 

80 by 25 text, monochrome 


1. used by Compaq, EGA, and CGA 
2. also used for non-IBM video 
devices such as Hercules 

3. unreliable 


Table 1 BIOS video equipment flag 





Mode Meaning 
OOh 40 by 25 B&W text, color 
graphics (obsolete) 


Oth 40 by 25 color text 
02h 80 by 25 B&W text 
03h 80 by 25 color text 
04h 320 x 200 4-color graphics 
O5h 320 x 200 4-color graphics 
(color burst off) 
O6h 640 x 200 2-color graphics 
O7h monochrome adaptor or 
EGA text mode 
O8h 160 x 200 16-color graphics (PCjr) 
O9h 320 x 200 16-color graphics (PCjr) 
OAh 640 x 200 4-color graphics (PCjr) 
| OBh not used 


OCh not used 


ODh 320 x 200 16-color graphics (EGA) 


OEh 640 x 200 16-color graphics (EGA) 
OFh 640 x 350 2-color graphics (EGA) 
10h 640 x 350 4-color or 16-color 


graphics (EGA) (depends on 
available display memory) 








| Table 2 IBM PC line video modes 
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The Video Equipment Flag 
First I'll discuss sources of informa- 
tion about the video environment, 
then I'll show how to use them to 
identify the video hardware. At 
memory address 40h:07h, the ROM 
BIOS keeps a byte called the equip- 
ment flag, which describes the ma- 
chine’s hardware configuration. Bits 
4 and 5 give some information about 
the attached video device. By mask- 
ing out the other bits and shifting 
right four places, you can isolate a 
device number from 0 to 3. In C, for 
example, you might write this opera- 
tion as: 


adaptor = (peek (0x40, 0x07) & 0x18) 
a - 4; 


A similar effect can be obtained in 
BASIC with the statements: 


DEF SEG &H40 
ADAPTOR = (PEEK (7) \\ 8) AND 
&HO03 


Table 1, left, shows the full range of 

resulting values. As this table indi- 

cates, the BIOS video equipment flag 

byte raises more questions than it 

answers. The only thing that’s sure 
is that when its value is 3, you 
have a monochrome (that is, text- 
only) adaptor. Even so, you might 
want to check further; if the video 
mode discussed next is 7, it’s defi- 
nite that the video device is inca- 
pable of APA graphics and color 
text. 


The Video Mode 

The ROM BIOS furnishes two meth- 
ods for obtaining the video mode 
—that is, the current mode of opera- 
tion for the adaptor. One is to call 
interrupt 10h with function code 
OFh in the AX register. On return, 
AL contains the mode value. An 
alternative is to bypass the ROM 
BIOS and do yourself what func- 
tion OFh does indirectly: read the 
video mode byte from location 





= 40h:49h. 


Whichever, the resulting is a byte 
whose possible settings are shown 


in Table 2, left. These values can 


also be used to set the video mode, 


assuming the attached device is Ca- 
pable of supporting them. These 
values suggest the capabilities of the 
monitor by inference only and can 
be misleading. For example, although 
mode 07h indicates an active mono- 
chrome display adaptor (MDA), it is 
also valid for the EGA in plain text 
mode. 

Note that modes OBh and 0Ch are 
undefined; presumably these are re- 
served for future developments or 
for graphics adaptors that were 
never introduced. 


The Enhanced 
Graphics Adaptor 
If the current mode is anything less 
than 08h, you have to investigate 
further to find out if an EGA card is 
present in the system. The ROM 
BIOS furnishes no call for this, so 
you. have to read memory location 
40h:87h to find out. This address 
contains the EGA information byte. 
Although each bit or bit pair in 
the EGA information byte has some 
unique significance, in general it’s 
sufficient to know that the byte is 0 
when an EGA is not present and 
nonzero when one is. Therefore, in 
C, you can define a Boolean func- 
tion isEGA() as follows: 


char isEGA (void) 
{ 


return (peekb (0x40, 0x87)); 


j 


which returns FALSE when there is 
no EGA attached and TRUE (some 
nonzero) when one is. Similarly, you 
can test for an EGA monitor in 
BASIC with statements such as: 


DEF SEG &H40 
IF PEEK (&H87) <> 0 THEN (EGA 
present) ELSE (not) 


A brief discussion of the EGA is 
perhaps a worthwhile digression 
here. The EGA furnishes several ex- 
tended all-points addressable (APA) 
graphics capabilities. That is, you 
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an 


or odd 


can have more pixels of higher den- 
sity with more colors than in the 
earlier graphics adaptors. How the 
EGA works is beyond the scope of 
this article. What's important is that 
the EGA is downward compatible; 
that is, it supports all the modes 
available in the earlier MDA and 
CGA, plus some of its own. The EGA 
offers no text capabilities beyond 
the CGA, except that the characters 
are more dense and thus more read- 
able; this is a given, beyond pro- 


grammer control. Otherwise the 


same combinations of 16 foreground 
by 16 background colors are avail- 
able. 

The advantages of the EGA over 
other adaptors thus involve only 
APA graphics. In text modes, the 
only discriminator is whether the 
display is pure monochrome (MDA) 
or not. If it's pure MDA, you can't 
do colors; otherwise you can. 


Other Common Adaptors 
The popular Hercules card offers 
APA graphics enhancements but 
nothing extraordinary by way of text. 
The Hercules provides for gray shad- 
ing of text as a substitute for text 
colors and APA graphics on a 
720 X 348-pixel monochrome display. 

The Compaq adaptor is second 
only to the EGA in versatility. In text 
mode, it acts like the EGAs text 
mode, producing high-resolution 
text in any combination of 16 fore- 
ground and 16 background colors. 
You can also switch it into any of 
the CGA graphics modes (04h—06h ) 
and it behaves just like the CGA 
adaptor. 

Identifying a “Herc” or a Compaq, 
like the others, is a matter of recog- 
nizing a pattern of indicators. 


The Software 


Sherlock Holmes 
Now let’s see how these clues fit 





EGA CGA M 
BIOS equip. 0 0 
Video mode 3 3 
EGA byte nonzero 0 


together. Table 3, below, shows the 
“signatures” of several popular video 
adaptors in their default (power-up) 
conditions. Notice that each adaptor 
has a unique pattern of values. Given 
this, you can quickly sift through 
three items of information and iden- 
tify the adaptor. Expressed in pseu- 
docode, the algorithm is: 


if EGA byte <> 0 then 
adaptor = EGA; 
else 
case BIOS equipment flag of 
0: if video mode = 2 then 
adaptor = Compaq; 
else 
adaptor = CGA; 
end if; 
break; 
1: adaptor 
note) 


Hercules; (see 


I 


break; 
3: adaptor = MDA; 
end case; 
end if; 


Note: Some other monitors use 
the same signature as the Hercules 
does. An example is the MDS Genius 
full-page display popular with desk- 
top publishing systems. In this case, 
you have to look at the display 
buffer size, which you can fetch as 
an integer from 40h:4Ch. The Hercu- 
les display buffer is 16,384 bytes; 
that for the Genius is 8,192 bytes. 

Obviously, then, Table 3 and the 
algorithm are not comprehensive. 
The great majority of video adaptors 
for IBM PCs and compatibles emu- 
lates one of these de facto stan- 
dards, however, and thus the 
method presented here is reliable in 
almost all cases. 


DA Compaq Hercules | 
3 0 1 | 
7 2 t 
0 0 0 | 





Table 3 Signatures of popular video adaptors 
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VERSION 
MANAGER 


Now SVM supports local area 
networks and tracks source 
revisions made by multiple 
users in both single-site and 

multi-site configurations. 


Plus... 


¢ Archive Database Tracks Source 
(and Binary) File Revisions 


Audit Trail Reporting Provides 
Info on Project’s Development 
Revision Branches Allow Mul- 
tiple Courses of Development 


Revision Merging and Deleting 
Provide Flexibility in Archive 
Maintenance 


User [Ds, Privilege Settings & 
Passwords Help Resolve Access 
Conflicts and Maintain Project 
Integrity 

Optional Text Compression 
Reduces Storage Requirements 


Menu Driven Shell Makes SVM 
Easy to Use 


Single-Site: $299.95" 
5-site LAN: $1000 (extendible) 


New program, called SMKgen, 
automatically constructs a 
dependency file by analyzing 
the files in a project. 


Plus... 


e Structured Language Used to 
Define Dependencies 


Rich Command Set with Over 
20 Different Statements 


Ability to Handle Nested Include 
Files and Library Dependencies 


Performance & Functionality not 
Found in UNIX Make or Clones 


SMK Only: $99.95" 
SMKgen: Add $50.00 


CALL TODAY 
1-313-662-8086 


Visa/MC/COD Accepted 
Dealer Inquiries Invited 
*Plus postage and Handling 


SEIDL COMPUTER ENGINEERING 


3106 Hilltop Dr., Ann Arbor, MI 48103 
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GE! 
THE 
BASIC 
FAGTS 


Introducing ApBasic*" the only 
program available today that offers 
a real debugger feature, 

with single-step, watch variables 
and breakpoints. 


Plus, on-line help for language, one 
megabyte of code space and string space, 
a true native code compiler (no psuedo- 
code) and structured code. And, because 
it’s ApBasic, there’s more! 


Editor Features ° Fast full screen editor 
with undelete lines, block copy and move, 
search and replace, one keystroke to 
compile and run * Language Features ° 
8087/80287 support « Alphanumeric line 
labels, no more line numbers « Multi-line if 
statements *« Supports DOS 3.xx networks « 
Named constants « Text windows ¢ 
Modular sub-programs and multi-line 
functions with local, static and global 
variables up to 64K of code each « 
Debugger Features Up to twenty 
breakpoints * Up to ten watch variables « 
View output screen while in debugger ° 
single-step or go to line with cursor « 
System Features « Source code toolboxes 
available soon * Creates stand-alone .EXE 
files or smaller chain files » Compact 
compiler, runs easily on a single 

diskette computer. 








































When you get the facts, 
there is a basic difference. 


—A pBasic— 
BY COMPTECH 
1-904-497-4810 
Comptech Software and Consulting, Inc. 


PO. Box 280, Ft. White, FL 30238 
TELEX 910 - 250 - 4832 COMTECH UQ 
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GRAPHICS TOOLBOX 
(continued from page 33) 


These considerations enable the rou- 
tine to plot a diagonal or orthogonal 
line in any direction. The cost of 
this flexibility is slower performance. 

As you use the video library, you'll 
undoubtedly add your own graph- 
ics routines for such things as 
polylines, filled shapes, circles, arcs, 
and so on. The DRAW. file given 
here is merely a suggestion of the 
kinds of things you can do to make 
graphics easier in Turbo C. 

You can also make life a little 
easier, and your source code more 
readable, by including the file 
COLORS.H (see Listing Four, page 
85) in programs that require colors. 
It’s always easier to understand iden- 
tifiers than “magic numbers” requir- 
ing you to memorize, for example, 
that 07h is light gray. 


A Graphics Sampler 

Now let’s put this discussion to 
work in a demonstration program. 
Listing Five, page 85, contains the 
demonstration program  VID.C, 
which calls a number of the rou- 
tines in the video library. It pro- 
duces some simple but illustrative 
effects in both text and graphics 
modes. 

The program first identifies the 
adaptor on the host machine so 
that it can subsequently tailor its 
behavior to suit (or bypass opera- 
tions that the adaptor can’t handle, 
such as APA graphics on an MDA). 
This program is written to run on 
the MDA, CGA, EGA, and Compaq; it 
doesn't recognize the Hercules card. 

Next it produces a text graphics 
display that showcases cursor posi- 
tioning with gotoxy() and (if the 
monitor is capable of color) colored 
text. Except for the string-writing 


functions that produce a label at the. 


top and a prompt at the bottom of 
each demonstration display, this is 
the only use of text graphics in the 
program. 

In the third display, the program 
draws a border around the screen 
and a large corner-to-corner X inside 
it. It calls the functions in DRAW... 
This routine shows how to make a 
run-time adjustment to the coordi- 
nate system according to whether 
the adaptor is a CGA (or Compaq) 








or an EGA. If you’re running with an 
MDA, the program bypasses this dis- 
play and the next because the hard- 
ware can't handle it. 

The fourth panel is in CGA 
320 X 200-pixel four-color graphics. It 
draws a three-color hourglass illus- 
trating two things: first, that solids 
on a display are indeed composed 
of numerous horizontal lines; and 
second, that the EGA (if that’s what 
you're using) can emulate a CGA 
monitor. 

The final display merely an- 
nounces that the demo is finished. 

If you haven't converted the video 
functions into a linkable library but 
instead are using Listing One di- 
rectly, change the indicated direc- 
tive to #include <video.i> near the 
top of the file before compiling. On 
the other hand, if you’ve gone to the 
trouble of creating VIDEO.LIB, set 
up a project file VID.PRJ containing 
the following entries: 


vid 
video.lib 


Make sure VIDEO.LIB is in the same 
directory as your source program 
VID.C, then start the compile, link, 
and go session with Alt-R. 


Availability 

All the source code for articles in 
this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb’s Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 


DDJ 


(Listings begin on page 82.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 2. 
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ARTICLES 


A Graphics Toolkit 
for Turbo Pascal 


Ithough I've been _ using 
Ae Pascal for custom 

graphics work for some time, 
I haven’t come across much. infor- 
mation on how to uncover the some- 
times subtle graphics capability in 
Version 3.0. This article shows how 
I used several nonstandard Turbo 
Pascal procedures, including GET- 
PIC, PUTPIC, GETMEM, FREEMEM, 
BLOCKWRITE, and BLOCKREAD, to 
create a set of tools for handling 
rectangular regions. You can use 
these tools, for which I have includ- 
ed all the source code, to develop: 


@ graphics pop-up overlay screens 
in either medium-resolution (320 Xx 
200 pixels) or high-resolution (640 x 
200 pixels) graphics modes 

@ multiple concurrent graphics re- 
gions that require rapid display 

@ rapid block-move animation 


This set of tools consists of three 
procedures—SaveHegion, Restore- 
Region, and FreeBuffer—along with 
one function—CRTmode—which col- 
lectively let you store to buffer and 
restore complete graphics screen re- 
gions or any upright rectangular 
subregions of the screen. I have also 
included two supporting proce- 
dures—SaveBlockToDisk and Get- 
BlockFromDisk—which are useful 
for moving buffered screen regions 
to and from disk efficiently. (You 
need a CGA to make use of these 
routines.) 


Dr. Callihan is chair of the Computer 
Science Department at the University 
of Pittsburgh at Johnstown where he 
has taught for the past 19 years. For 
the last 7 years, he has been actively 
involved in developing graphics tools. 
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by Hubert D. Callihan 


Saving and restoring 


graphics screen 
regions 





Despite what you might think 
about the limitations of Turbo 
Pascal, the number of graphics re- 
gions that you can save to buffer 
simultaneously is limited only by 
heap space (that is, the dynamically 
accessible memory not already con- 
sumed by DOS, resident programs, 
the Turbo Pascal environment, the 
static program code, and static data). 
By operating in dynamic memory 
space, these tools exploit all the 
memory available on the PC that is 
managed by DOS. Turbo Pascal pro- 
grammers who think they must stay 
within the 64K static limit will ap- 
preciate this feature; frankly, most 
of the criticism that has been lev- 
eled at Turbo Pascal regarding the 
64K static limit is unfounded be- 
cause, for a little inconvenience in 
notation and the need to allocate 
and deallocate memory, you can 
always get around the static limita- 
tion by using pointers. 

I have successfully used these 
tools to develop menu overlays, 
images of fractals, Mandelbrot and 
Julia sets, splines, and custom ani- 
mation code. Animation using re- 
peated overlays of several images is 
a particularly good application for 
the tools because it depends in no 
way upon the complexity of the 
image but strictly on the amount of 
time required to restore the region 
to the screen once it is buffered. 
Even as complex an image as a Man- 


delbrot set, which may take hours 
to generate, can be buffered and 
restored at animation speed if no 
logical changes need to occur in the 
image. Drawing the _ individual 
frames, buffering each in memory, 
and displaying them in rapid se- 
quence will produce the flip-card 
motion effect common in some 
types of animation, and because you 
don’t need to erase one image 
before drawing another, the result is 
nearly smooth and flicker-free. 


Saving Screen Regions 

Listing One, page 92, contains the 
Turbo Pascal code for SaveRegion, 
the procedure that saves a screen 
region into a buffer. You call Save- 
Region with arguments defining the 
rectangular screen region to be buff- 
ered, expressing the coordinates in 
absolute screen values; that is, 
medium-resolution x range 0-319 
and y range 0-199 or hi-res x range 
0-639 and y range 0-199. In addi- 
tion, you must declare a pointer 
referring to a screen buffer contain- 
ing the saved screen as a variable 
parameter argument. 

SaveRegion itself calls GETMEM to 
allocate sufficient memory to hold 
the screen buffer, and then it calls 
GETPIC to get the picture from the 
screen and copy it into this buffer. 
The details for the SaveRegion input 
and output header are: 


TYPE buffermemory : ARRAY [1..3] 
OF INTEGER; 
bufferaddress : “buffermemory; 

PROCEDURE SaveRegion ( VAR buff : 
bufferaddress; 

x1, y1, {upper left coords} 

x2, y2 {lower right coords} 

: INTEGER ); 
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Notice that array of three inte- 
gers—buff'[1], buff[2)], and buff(3). 
Although they are somewhat enig- 
matically described in the Turbo 
Pascal reference manual, these three 
integers describing the parameters 
of the buffered screen must contain 
the following values: 


@ buff'{1/—an integer code for the 
current screen mode, namely 2 for 
GRAPHMODE or GRAPHCOLOR- 
MODE or 1 for HIRES mode 

© buff'(2/—the width in pixels of the 
buffered region according to the 
mode in buff'{1) 

© buff'(3/—the height in pixels of 
the buffered region 


GETPIC stores the remaining screen 
image data in successive bytes after 
buff'[3). 

The program needs to know how 
much space the buffer for this 
screen region will need so it can 
dynamically allocate the memory via 
GETMEM and inform GETPIC about 
it. The documentation for GETPIC in 
the Turbo Pascal reference manual 
requires that this size be computed 
for medium resolution as: 


size := ((width+3) DIV 4) * height * 
2+6 


and for high resolution as: 


size := ((width+7) DIV 8) * height 

+ 6 
These expressions account for the 
three integers (6 bytes) and the total 
number of bits needed to represent 
all pixels, where each pixel is either 
2 bits for medium resolution (four 
colors) or 1 bit for high resolution 
(two colors). In either case, pixel 
width and pixel height are com- 
puted as follows: 


width := ABS ( x1-x2) + 1; 
height := ABS ( y1-y2) + 1 


Calls to GETMEM and GETPIC 
with these parameters will allocate 
contiguous memory dynamically at 
the location determined by the 
pointer buff: 


GETMEM ( buff, size ); 
GETPIC ( buff’, x1, y1, x2, y2 ); 


I use GETMEM rather than the stan- 
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dard NEW allocation procedure in 
Pascal because the amount of 
memory varies at run time for differ- 
ent screen buffer sizes and must be 
computed. NEW allocates space at 
run time but only according to the 
static TYPE declared at compile 
time; GETMEM permits it to be com- 
puted on the fly. 

GETPIC actually permits any stan- 
dard TYPE variable to be used to 
declare the buffer. An integer would 
suffice in most cases, but I use an 


_ The number of 
graphics regions 
you can 
save to buffer 
simultaneously 
is limited only 
by heap space. 


array of three integers so that the 
resolution, width, and height are con- 
veniently accessible using buff’/1), 
buff{2], and buff[3], respectively. 
You will need these later when you 
want to display a screen region 
using RestoreRegion and/or free the 
memory consumed by its buffer. 

Note that in Listing One I use the 
max and min functions locally 
within SaveRegion to filter the 
passed coordinates and thereby guar- 
antee that they lie within the speci- 
fied range for the current resolution 
mode. Note also the function CRT- 
mode, which returns the current 
resolution mode of the graphics dis- 
play, thus determining how size is 
computed. 

My original versions of SaveRegion 
and RestoreRegion didn't have a CRT- 
mode function; it required a global 
variable to carry the currently active 
resolution. Such globals are a nui- 
sance when designing self-contained 
tools that abide by loose coupling 
principles commonly used in well- 
structured systems. In this case, I 
found that I could virtually elimi- 
nate side effects by creating a func- 
tion to determine the current video 
mode. You just load the AX register 
with $0F00 and exercise ROM BIOS 
interrupt $10, and you get back the 


CRT mode-of-operation parameters 
in the AX and BX registers (see 
AT&T's 6300 documentation). 
Namely, the low byte of the 16-bit 
AX register contains an integer code 
corresponding to the current mode 
of operation (see Listing Two, page 
92, for these codes). Although not 
used here, the high byte of the AX 
register contains the number of char- 
acter columns in the text display if 
text mode is active and should be 
ignored in any graphics mode. The 
high byte of the BX register contains 
the current display-memory page. 

Testing the CRT mode is a simple 
matter of declaring the usual regis- 
ter variables within a RECORD struc- 
ture, setting the conditions for the 
interrupt to occur, calling the Turbo 
Pascal INTR procedure, and _ inter- 
preting the returned results, as fol- 
lows: 


FUNCTION CRTmode 
( VAR char__columns, 
display__page : BYTE ) : BYTE; 
TYPE 
regpack = RECORD 
ax,bx,cx,dx,bp,si,di,de,es flags :IN- 
TEGER 
END; {regpack} 
VAR dosreg : regpack; 


BEGIN 
WITH dosreg DO BEGIN 
ax := $0FO00; 


INTR ( $10, dosreg ); 
CRTmode := LO ( ax); 
char__columns := HI ( ax ); 
display__page := HI ( bx ) 
END {WITH} 
END; {CRTmode} 


Restoring Regions 

to the Screen 

Listing Three, page 93, contains the 
complete code for the RestoreRegion 
procedure. The heading for the 
RestoreRegion procedure is: 


PROCEDURE RestoreRegion ( VAR 
buff : bufferaddress; x, y : INTE- 
GER; freeup : BOOLEAN ); 


You call it with arguments describ- 
ing the lower-left screen coordinates 
(x,y) where the buffered region is to 
be placed on the current screen, 
and it uses the Turbo Pascal-sup- 
plied procedure PUTPIC to place the 
image at the point (x,y). Restore- 
Region also expects the _ buffer 
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portability, we 
have it. The 
hottest file 
handler and 


report generator | 


on the market. 


The c-tree file handler offers 
unmatched file accessing speed. The 
r-tree report generator makes pro- 
ducing reports a snap. Both pack- 
ages offer unmatched portabili 
Thousands of programmers are 
using these packages in over 50 sys- 
tem environments: DOS, UNIX, 
XENIX, OS/2, MACINTOSH, VAX, 
TOWER and........ YOURS. 


More for your money e complete 


C-source code e single and multiuser 


capability e no royalties e unlimited 
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machines........ for one price. 
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r-tree features e no printer spacing 
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recoding e unlimited control breaks, 
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and sort capabilities over multiple 
files ..... saves days of coding. 


FairCom’s unmatched products will 
work for you. Order c-tree today for 
$395, r-tree for $295. When ordered 
together, r-tree is only $255. For 
VISA, MasterCard and C.O.D. orders 
call (314) 445-6833. For c-tree 
benchmark comparisons, write us at 
4006 West Broadway, Columbia, 
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TURBO: PASCAL GRAPHICS 
(continued from page 39) 


pointer used by a previous Save- 
Region call to be transferred in buff- 
Finally, there’s that Boolean argu- 
ment. I chose to use a BOOLEAN 
(called freeup) to indicate either that 
the restored buffer should be deallo- 
cated (freeup=TRUE) or that it 
should not be deallocated (freeup = 
FALSE ), implying that the region 
may be restored to the screen again 
and again, as with a menu. 

One caution: do not use the same 
buffer name on two successive Calls 
to SaveRegion because this will 
render the first buffer inaccessible 
and you won't be able to deallocate 
it. If you must use the same buffer 
name in this manner, then copy the 
existing buffer into a bufferaddress 
variable name prior to the second 
call. Otherwise, a region correspond- 
ing to a given named buffer should 
be restored with the freeup argu- 
ment set to TRUE before the same 
buffer is used again in a SaveRegion 
call. 

RestoreRegion uses the resolution, 
width, and height parameters previ- 
ously saved in the buffer to compute 
the amount of memory in size to be 
deallocated by FREEMEM. Note that 
it won't restore the image if any part 
of the region extends beyond the 
screen edges (x__ok and y__ok); two 
bells will sound in this case. Note, 
too, that the logic in this procedure 
permits you to remove this bound- 
ing-edge test, permitting partial 
image restoration. 

Figure 1, page 44, illustrates a pop- 
up graphics menu that is used to 
overlay a complex fractal image. The 
fractal image is previously buffered 
using SaveRegion, and when restored 
using RestoreRegion, it overwrites 
the image containing the menu. The 
effect in such a case is to erase the 
menu and restore the background 
to its previous state. 


Managing Memory 

I found it wise to include in my bag 
of tools a procedure called Free- 
Buffer to allow me to deallocate an 
image buffer without restoring the 
image visually to the screen. Like 
RestoreRegion, FreeBuffer computes 
the size of the memory block to be 
freed and calls FREEMEM to com- 


Dr. Dobb's Journal, November 1987 


anes 


—— —— 


ee, ae et 





Stunning speed. Unmatched performance. Total flexibility. Simple 
and intuitive operation. The newest VEDIT PLUS easily satisfies 
the most demanding computer professional. 


The free demo disk is fully functional—you can try all features 
yourself. Best, the demo includes a dazzling menu-driven tutorial 
— you experiment in one window while another gives instructions. 


The powerful “macro” programming language helps you eliminate 
repetitive editing tasks. The impressive demo/tutorial is written 
entirely as a “macro—it shows that no other editor's “macro” lan- 
guage even comes close. And VEDIT PLUS is only 40K in size. 


Go ahead. Call for your free demo today, You'll see why VEDIT 
PLUS has been the #1 choice of programmers, writers and engi- 
neers since 1980. 


The installation lets you pick from closely emulating the keyboard 
layout of Word Perfect, WordStar and others. Or you can easily 
create your own layout and even your own editing functions. Sup- 
ports any screen size—you pick screen colors and attributes. 


Supports the IBM PC, XT, AT and PS/2. Also supports MultiLink, 
PC-MOS/386, Concurrent DOS and most networks. Also avail- 
able for MS-DOS, FlexOS (protected mode), CP/M-86 and CP/M. 
(Yes, we support windows on most CRT terminals, including CRTs 
connected to an IBM PC.) Order direct or from your dealer. $185. 


Special: VEDIT (single file, no windows) for CP/M—$49. 
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Call 1-800-45-VEDIT for 
FREE Fully Functional Demo Disk 


e Fully Network Compatible 
e Call for XENIX-286 version 
e 30 Day Money-back guarantee 


‘Off the cuff macros 
Built-in macros 
Keystroke macros 
Multiple file editing 
Windows 
Macro execution window 
Pop-up menus 
Execute DOS commands 
Automatic processing of 
Compiler errors 
“Cut and paste” buffers 
Undo line changes 
Paragraph justification 
Convert to/from WordStar 
On-line calculator 
Configurable Keyboard 
43 line EGA support 
Manual size/index 


Benchmarks in 120K File: 


2000 replacements 
Pattern matching search 
Pattern matching replace 
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VEDIT and CompuView are registered trademarks of Compu\’iew Products, Inc. BRIEF is a trademark 
of UnderWare, Inc. PMATE is a trademark of Phoenix Technologies Ltd. Norton Editor is a trademark 
of Peter Norton Computing Inc. MultiLink and PC-MOS/386 are trademarks of the The Software Link, 
inc. CP/M and FlexOS are trademarks of Digital Research. MS-DOS is a trademark of Microsoft. 





*Also available for Tl Professional, Tandy 2000, DEC Rainbow, Wyse WY700 and others. 
*Demo disk is fully functional, but does not readily write large files. 
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aaa TURBO PASCAL GRAPHICS 


(continued on page 40) 
BASINS OF INFINITY plete the job. Listing Four, page 94, 
contains the complete FreeBuffer pro- 
Sepeh lh Pe ti g cedure. The procedure heading 
ir Tibet tt takes this form: 

Make Title Slide 

Get a Screen PROCEDURE FreeBuffer 
Deaw Julia Set ( VAR buff : bufferaddress ); 
= rind el Te 

- This Menu Storing Regions on Disk 
4 AL toe ae > - Camera | | Because an image is stored within a 
Soe || contiguous section of memory, it is 
possible to save it rapidly to an “un- 
typed” disk file and later load it 
from disk into a buffer. Turbo Pascal 
provides for such untyped files, and 
its BLOCKWRITE and BLOCKREAD, 
as described on page 114 of the 
: reference manual, will suffice for writ- 
Figure 1: The pop-up menu, previously drawn and saved, ereyie the ing and reading the images. 


fractal image You call BLOCKWRITE like this: 
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| numrecs := 1 + (size—1) DIV 128; 
BLOCKWRITE ( FileVariable, buff, 
numrecs ) 


because it saves a block of memory 
to a file named FileVariable consist- 
ing of numrecs 128-byte block re- 
cords starting at buff. The last record 
may conceivably contain less than 
128 bytes of true image data, wast- 
ing a few bytes, but the sacrifice of a 
few bytes of memory and disk space 
is well worth what you gain in speed 
by using block disk transfers. 

To load an image back from disk 
into a buffer, you determine the size 
of the image file (in 128-byte re- 
cords) using Turbo Pascal's FILE- 
SIZE function, allocate sufficient 
memory to hold the image using 
GETMEM, and finally, BLOCKREAD 
the records from the original “block 
written” file into the buffer: 


SizeOfFile := FILESIZE ( FileVari- 
able ); 

GETMEM ( buff, SizeOfFile * 128 ); 
BLOCKREAD ( FileVariable, buff, 
SizeOfFile ); 


Listing Five, page 94, contains the 
simple procedures SaveBlockToDisk 
and GetBlockFromDisk for saving 
and loading these buffered regions 
to and from disk. 





Examples 
Having hopefully whetted your ap- 
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Figure 3: The full screen saved as buffer2 in Listing Six 
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Brand New From Peter Norton 


A PROGRAMMER’S EDITOR 


that’s Aghtning fast with the hot 
features programmers need 


=NORTON 


petite to see a demo, I submit the 
demo program in Listing Six, page 
95. It creates the graphic region 
shown in Figure 2, page 44, saves it 
in a buffer (buffer), and restores it to 
various locations on the screen. A 
second buffer, buffer2, contains a 
full-screen image (see Figure 3, page 
44) that serves as background for 
subsequent pop-up overlays. The pro- 
gram restores this image alternately 
with the smaller overlay, creating a 
motion effect. 

Note that I have’ included 
GRAPH.P Extended Graphics (sup- 
plied with Turbo Pascal, Version 3.0) 
as an option if you want to use 
windows via GRAPHWINDOW and 
the window-clearing operation FILL- 





TPs , 

is is the program- 
mer’s editor that I wished 
I'd had when I wrote my 
Norton Utilities. You can 





Direct from the 
man who gave you 
The Norton Utilities, 
Inside the IBM PC, 
and the Peter Norton 
Programmer's Guide. 


program your way to 
glory with The Norton 





SCREEN. If you use Turbo Pascal 
windows in this manner, then the 
coordinates in SaveRegion and 
RestoreRegion refer to the current 
window, where (0,0) is its upper-left 
corner. 


Availability 

All the source code for articles in 
this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb’s Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 
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ARTICLES 


Using EGA Graphics 
Screens in Your Programs 


reating detailed images for 
OC: Enhanced — Graphics 

Adapter (EGA) usually means 
graph paper, binary-to-hexadecimal 
conversion, and counting lots of 
dots. Commercial “paint” programs 
such as EGAPaint and PC Paint- 
brush, on the other hand, offer real- 
time, see-what-you-draw image crea- 
tion but typically only allow full 
screens of images to be chained in a 
sort of “slide show.” 

Once you display a screen (cre- 
ated by such a paint program) with 
your programming language, you 
can then use your language’s graph- 
ics commands to modify the screen. 
You can capture bit blocks, animate 
portions of the screen, and save 
images to disk—all this and more, 
with no graph paper or binary-to- 
hexadecimal conversion and only a 
little pixel counting. 

This article presents Forth rou- 
tines that can be used to load an 
EGAPaint file into video memory for 
producing animation (see Listing 
One, page 88). Although Forth is the 
language used in the listing, the pseu- 
docode in Listing Two, page 88, 
should enable you to adapt the 
method to any language supporting 
EGA graphics. The process is rela- 
tively straightforward. Listing Three, 
page 89, contains a demonstration 
of the routines’ use in a simple 
game. But first, let’s take a brief look 
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by J. Brooks Breeden 


Getting a full-color 
screen from a paint 
program into EGA 
display memory from a 
high-level language 


at the Enhanced Graphics Adapter. 


An EGA Review 

Since its introduction in 1984, the 
IBM Enhanced Graphics Adapter 
(EGA) has received much less press 
than did its older sibling, the Color 
Graphics Adapter (CGA), in its first 
three years. The CGA’s introduction 
was followed by a plethora of $20 
books on how to program graphics 
(mostly in BASIC), but despite the 
introduction of many low-price EGA 
clone boards, information on taking 
advantage of the EGA’s capabilities 
is still scarce. The EGA is more com- 
plex than the CGA and program- 
ming the EGA does require some 
understanding of the fundamental 
differences between them. 

In its high-resolution mode 
(640 X 200 pixels, black and white), 
the CGA uses 1 byte to store data for 
eight pixels, 1 bit per pixel, either 
on or off (see Figure 1, page 47). The 
CGA memory required for a single 
page of hi-res display is therefore 
16,000 bytes (640 X 200/8 = 16,000), al- 
though 16K (16 X 1,024 = 16,384 bytes) 
is allocated. CGA memory begins at 
B800h for even scan lines; odd scan 
lines are offset by 8K (8,192 bytes). 
The extra 192 bytes are not used in 
either area. 

In contrast, EGA hi-res graphics 
display memory begins at A000h (see 
Figure 2, page 47). Unlike the CGA, 








display memory is continuous, not 
separated into even-line and odd-- 
line locations. In its high-resolution 
16-color mode, the EGA uses 1 byte 
to represent 16-color data for eight 
pixels, 1 bit per pixel. No, you didn’t 
read that wrong. 

Forgetting color for the moment, 
the EGA display is a matrix of 
224,000 dots (640 X 350= 224,000). If 
the display is either black or white, 
each dot or pixel can be represented 
by 1 bit (either on or off), just like 
the CGA in its hi-res mode. One byte 
represents eight contiguous pixels 
on a scan line, so 28,000 bytes 
(224,000/8 = 28,000) contain pixel data 
for one full screen. 

But what about color? Let’s first 
examine how a_ color printer 
“paints” an image. Color printers 
usually make four passes per line. 
Simply stated, color printing involves 
mapping areas of a page that receive 
a color, then applying the ink to 
those areas of the page. Successive 
mapping and application of cyan, 
magenta, yellow, and black inks (pig- 
ments that reflect light) yield a full- 
color image. 

The EGA similarly uses a “map 
mask” to determine which phos- 
phors (that emit light) should be 
excited in red, green, blue, and in- 
tensity “planes.” One screen full of 
pixels (28,000 bytes) maps all areas 
of the screen that contain red in the 
displayed color, a second 28,000- 
byte screen maps all areas contain- 
ing blue, a third maps green, and a 
fourth maps the associated inten- 
sity. The pixels mapped from all 
four planes blend visually to make 
the full-range color display. The EGA 
display, then, can be visualized as 
four overlaid planes of color, num- 
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bered 0-3, each having the same 
address—A0o00h. Yes, the same ad- 
dress. If the CGA is a single family 
residence, the EGA is a four-unit 
apartment building. 

In addition to display memory, 
the EGA card contains control regis- 
ters and temporary latches. The con- 
trol registers are accessed by writing 
data to a port. To write to the dis- 
play, you first set the control regis- 
ters and read the byte at the desired 
address and then write the new byte 
to the same address. Reading the 
byte (eight pixels at a time) causes 
the EGA to read 4 bytes, one from 
each plane, into the temporary 
latches (eight pixels’ worth of data 
in four colors). When a data byte is 
then written back to the same ad- 
dress, the values in the control regis- 
ters at that time determine how the 
data gets written to each of the four 
planes. Map masks determine which 
plane is written to, and bit masks 
determine which bits are on in the 
byte that is written to the plane. The 
bibliography lists references that 
cover this sort of low-level program- 
ming in detail. 

High-level languages supporting 
the EGA typically hide the complex- 
ity of such bit-level operations in 
commands such as LINE, ARC, and 
so on, but most do not implement 
all of the EGA functions. To do some 
things, you still have to resort to 
low-level programming. Although 
map-mask/bit-mask programming 
may appear excessively tedious, it is 
easy to do some things with the 
EGA, and moving data from storage 
to the display is one of the easiest. 
Displaying a screen image on the 
EGA means simply moving data rep- 
resenting the blue, red, green, and 
intensity planes from the source to 
the display address (the same ad- 
dress, the video segment:offset). You 
set the control registers (by writing 
values to the ports) such that the 
latches send the data being read to 
the appropriate plane. (Sending the 
blue data to the red plane results in 
bizarre color schemes. Go ahead, try 
it!) The only problem is finding out 
where the data for each plane is 
stored in your paint program’s file. 


Paint Your Wagon 


EGAPaint, a popular paint program 
from RIX Softworks is used in the 
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listings. Like other paint programs, 
it allows screens of images created 
with a program to be printed or 
saved to disks as files (either com- 
pressed or uncompressed). A printer 
utility, EGAPrint, is included to allow 
capture of anything being displayed 
to an uncompressed file in EGAPaint 
format. 

The standard 640 X 350-pixel, 16- 
color file format for EGAPaint 2001 
is 112,016 bytes: 16 bytes of color 
palette information, followed by 
28,000 bytes each of blue, red, green, 
and intensity, in that order. (I called 
RIX and asked!) 

The newer EGAPaint 2005 file for- 
mats vary depending upon the type 
of screen—for example, 640 x 350, 
640 X 480, and so on. RIX says it will 
share uncompressed file-format in- 
formation with any registered owner 
of the program who writes and re- 
quests it (I’m still waiting), but it will 
not share the compression scheme 
it uses. ARC seems to work fine for 


B800:0000h 


B800:000h+8k 





Figure 1: Conceptual representation of CGA display memory. The plane 
is 16,000 bytes; 1 byte controls eight pixels. 


A000:0000h 


Figure 2: Conceptual representation of EGA display memory. Each plane 


long-term storage, though. Other 
paint programs may save color 
plane data in a different order and 
might include palette color data in 
a different location (or not at all). A 
letter or call to the program vendor 
is worthwhile if some experimenta- 
tion doesn’t discover the proper se- 
quence quickly. 


Moving Right Along 

You can program the EGA using any 
language that lets you do the follow- 
ing things: 


1. read and write to an absolute 
address 

2. read or write to a specific I/O port 
3. call an external subroutine or a 
DOS interrupt 


For example, to set write mode 0 
in Turbo Pascal you use 
port($03CE]:=5 to select the regis- 
ter, then port/$03CF):=0 to set the 
register value. In BASIC you use out: 







is 28,000 bytes; 1 byte controls eight pixels for all planes. You read and 
write to the same address. The latches deliver to the previously selected 


plane(s). 
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EGA GRAPHICS 
(continued from page 47) 


100 out &h3ce,5 
110 out &h3cf,&ho 


In UR/FORTH, the word PC! sends a 
byte to a port. The sequence be- 
comes a word: 


: WriteMode0d ( --- ) 
HEX °5 3CE. PC! 0 3CF PC! DECE 
MAL ; 


Listing One contains the required 
routines written in UR/FORTH 1.01 
(MS-DOS version), a Forth-83 im- 
plementation from Laboratory Mi- 
crosystems; Listing Two contains a 
pseudocode version. The listings 
don’t include saving a screen to disk 
because the paint program creates 
the image and does the save-to-disk. 
As they say in academe, reversing 
the process to save a screen to disk 
is left as an exercise .... 


A Mindless Game 

of Motor Skill 

Figure 3, page 49, is a dump from 
my sample program. EGAPaint was 





Create 68K Embedded 


used to create a rear view of a 
Fokker Dr.1 triplane. After 8x Zoom 
“detailing,” the Fokker was saved as 
an EGAPaint file of 112,016 bytes. A 
UR/FORTH application then loaded 
the EGAPaint image using the rou- 
tines shown in Listing One. Once 
the EGAPaint screen was displayed, 
UR/FORTH's bit-block save routine, 
(@BLOCK, was used to save a rectan- 
gle of screen image surrounding the 
Fokker to memory. (That's where the 
pixel-counting comes in.) The block 
image was then written to disk by 
UR/FORTH as a DOS file of approxi- 
mately 3K, and the 112,016 byte 
EGAPaint file was deleted. 

This Fokker image was used as 
the principle image for a World War 
I shoot-’em-up dogfight. In the 
game, the Fokker image is loaded 
from disk to an allotted memory 
area and repeatedly written to the 
display using UR/FORTH’s !BLOCK. 
Obviously, cursor keys control (move 
the Fokker relative to) the gunsight 
of your aircraft, and the Fokker pilot 
has a will (mind?) of his own as his 
range of random motion changes as 
hits are scored. 

Animation of detailed images is a 


SCREEN GENERATOR 


natural outgrowth of this technique 
because complicated rotations and 
so on can be captured as a series of 
frames that can be loaded into 
memory, rapidly swapped, then dis- 
carded. Currently, I’m using this 
method in developing computer- 
assisted instruction (CAI) modules 
for my courses. As virtual memory 
becomes commonplace with OS/2 et 
al., we may see this technique used 
increasingly. Until then, experiment, 
and if you discover something, for 
goodness sake, publish it! 

The program begins with initial 
credits and a menu. When play 
begins, a Fokker Dr.1 triplane, a gun- 
sight, your remaining ammunition, 
and the number of hits scored are 
displayed. The Fokker is moving 
slowly and is unaware of your pres- 
ence. Your mission is to maneuver 
your plane (the gunsight) into posi- 
tion behind the Fokker and score 20 
hits in the fuselage area. The space 
bar fires the guns. 

Remember, you are flying the pur- 
suit aircraft (the gunsight) not the 
Fokker, so the controls take a little 
getting used to. The number pad is 
your “stick.” Pressing the up arrow 
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frustrating resident loaders, no loading screens from files on 
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Instant Screen Access 
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PopScreen | 
only $39 95 
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it back for a full refund! 


PopScreen 3.0 Supports: 
C: Microsoft, Lattice, Turbo, IBM 
8086: will output assembly code 
PASCAL: IBM, Microsoft 

TURBO PASCAL: (inline code) 
QUICKBASIC: library modules 
DBASE III+ (loadable .bin files) 


BavSoft 20x 6562-D, Albany, Cal. 94706 
ySo 415-527-3300 


60 DAY SATISFACTION GUARANTEE 
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key (8) pushes the stick forward, and 
because the gunsight is ‘fixed’ in 
the center of the screen, diving 
makes the Fokker move (relatively) 
up! Similarly, pulling back on the 
stick with the down arrow key, pulls 
your plane's nose up, making the 
Fokker move down. Left and right 
arrow keys move you left (the Fokker 
moves right) and right (the Fokker 
moves left). Got it? The diagonal keys 
function, also. This is useful because 
you will often want to pull up and 
left, or push down and right, simul- 
taneously. 

When no cursor key is pressed, 
the Fokker simply flies off-screen 
upward to the left, which is analo- 
gous to your plane diving to the 
right. This is undoubtedly a func- 
tion of the random-number genera- 
tor’s less-than-perfect randomness. 
What is ironic, though, is that it is 
exactly what would tend to happen 
were you to let go of the controls in 


image window 


371,200 


Range of 
random motion 
(limited to 
insure overlap 








a Sopwith Camel. “The Camel spun 
very quickly, had a very sensitive 
elevator control, and was very quick 
on right-hand turns due to the gyro- 
scopic effects of the heavy rotary- 
engine and the short fuselage.” 





THE FIRST COMPLETE 
SA SOFTWARE FOR 
UNDER $1,000. ciscoverthe powerct 


computer-aided Structured Analysis...Create specifications 
more efficiently, more accurately,... With feamwork/PCSA7' 
acomplete, automated SA tool for your PC for only $995. 


No other system includes these features for under $1,000: 

e Full support of Yourdon/DeMarco SA techniques 

e Easy-to-use mouse driven interface with pop-up menus 

e Includes integrated project data dictionary 

e Includes consistency checking and diagram balancing 

¢ Now also includes P-Specs, Postscript™ output, and 
new, easy tutorial 


Teamwork/PCSA runs on most IBM"—compatible PCs. 
It's used by leading developers at Boeing, AT&T, GE, HP, 
and Bank of America. And it’s the only PC-based software 
that offers you a growth path to the Teamwork family of 
CASE tools for real-time modeling, system design and life- 
cycle management. 


CADRE 


IBM is a registered trademark of International Business 
Machines. Postscript is a registered trademark of Adobe 
Systems, Inc. 


DDJ 11187 


Cadre Technologies Inc. 
222 Richmond St. 
Providence, RI 02903 
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Figure 3: Display of Fokker Dr.1 triplane (measurements in pixels) 
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DFD @: Structured Development 


rREE DeMarco Book! We'll give you 


fwo reasons to order feamwork/PCSA today. ONE: 
you get a 30-day money-back guarantee, so there's 
absolutely no risk. TWO: Order now and we'll send you 
Structured Analysis and System Specification 
by Tom DeMarco. It's the ‘Bible’ of structured analysis 
and normally sells for over $40. And it’s yours free. For 
details or to place your order, call or write today. 


! CALL (401) 351-CASE. 


North American prices only. Volume discounts available. 
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“How to protect your software 


by 





Inventor and 
entrepreneur, 
Dick Erett, 
explains his 
; company’s 

) » view on the 
protection of intellectual 
property. 









ment companies and the 

trade press seem to be miss- 

ing or ignoring is this: 
Software protection must 
be understood to be a 
distinctively different 
concept from that com- 
monly referred to as 
copy protection. 


Fundamentally, software 
protection involves devising 
a method that prevents 
unauthorized use of a 
program, without restricting 
a legitimate user from 
making any number of 
additional copies or prevent- 
ing program operation via 
hard disk or LANs. 

Logic dictates that mag- 
netic media can no more 
protect itself from misuse 
than a padlock can lock itself. 

Software protection must 
reside outside the actual 
storage media. The technique 
can then be made as tamper 
proof as deemed necessary. 
If one is clever enough, 
patent law can be brought 
to bear on the method. 

Software protection is at 
a crossroads and the choices 
are Clear. You can give 
product away to a segment 





66 crucial point that 
even sophisticated 
software develop- 


eee es aig ek 


Hard Disk Installation : Simply copy pon disk 
to hard disk using DOS Command - Copy At MSS 





the program diskette as you wish. 


Data Back-ups : Use normal back-up and restore 
commands, including backing up sub-directones containing 
program files. 






oe Networks : This product may be 
a orks. Follow the same installation 
102 of this manual. The Block 
with the normal operation of any 


rogram Back-ups : You may make as many copies 0 


letting people copy it?’ 


By Dick Erett, President of Software Security 
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Soon all software installation procedures will be as straightforward as this. 
The only difference will be whether you include the option to steal your 


product or not. 


of the market, or take a 
stand against the theft of 
your intellectual property. 


“,.. giving your software 
away ts fine...” 


We strongly believe that 
giving your software away 
is fine, if you make the 
decision to do so. However, 
if the public’s sense of ethics 
is determining company 
policy, then you are no 
longer in control. 

We have patented a device 
that protects your software 
while allowing unlimited 
archival copies and unin- 
hibited use of hard disks and 
LANs. The name of this 
product is The BLOCK™ 

The BLOCK is the only 
patented method we know 
of to protect your investment. 
It answers all the complaints 
of reasonable people con- 
cerning software protection. 


In reality, the only people 
who could object are those 
who would like the option 
of stealing your company’s 
product. 


““.. eliminating the ratio- 
nale for copy-busting...”’ 


Since The BLOCK allows 
a user to make unlimited 
archival copies the rationale 
for copy-busting programs 
is eliminated. 

The BLOCK is fully pro- 
tected by federal patent law 
rather than the less effective 
copyright statutes. The law 
clearly prohibits the produc- 
tion of work-alike devices 
to replace The BLOCK. 





The BLOCK attaches to 
any cOmmunications port of 
virtually any microcomputer. 
It comes with a unique 
customer product number 
programmed into the circuit. 

The BLOCK is transpar- 
ent to any device attached to 
the port. Once it is in place 
users are essentially unaware 
of its presence. The BLOCK 
may be daisy-chained to 
provide security for more 
than one software package. 

Each software developer 
devises their own procedure 
for accessing The BLOCK 
to confirm a legitimate user. 
If it is not present, then the 
program can take appro- 
priate action. 


‘*.. possibilities... 
limited only by your 
imagination...” 


The elegance of The 
BLOCK lies in its simplicity. 
Once you understand the 
principle of The BLOCK, 
hundreds of possibilities will 
manifest themselves, limited 
only by your imagination. 

Your efforts, investments 
and intellectual property 
belong to you, and you have 
an obligation to protect 
them. Let us help you safe- 
guard what’s rightfully yours. 
Call today for our brochure, 
or a demo unit.” 


oftware 


CCUFr. Ml Yine. 


870 High Ridge Road Stamford. Connecticut 


06905 


203 329 8870 
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EGA GRAPHICS 
(continued from page 49) 


(Campbell, 1984). 

To just type and run the program 
without modification, you need UR/ 
FORTH (a segmented  Forth-83 
model) from Laboratory Microsys- 
tems. The video driver, EGA- 
GRAPH.EXE, must be installed before 
UR/FORTH. The file DERFOKKR.IMG, 
which contains the image created 
with EGAPaint, must also be in the 
active directory. Using the technique 
I have already described, you may 
wish to build your own aircraft with 
a paint program, load it into video 
RAM, and use the bit-block operator 
@BLOCK to capture the image to 
memory. You then only have to 
write the image to a file from which 
it can be loaded whenever needed. 

The fundamentals of the game are 
neither specific to Forth nor to the 
EGA. Alternately, you can build an 
aircraft using simple lines and boxes 
that will work adequately with the 
CGA. Figure 3 shows the basis for 
the bit map and how that image is 
overwritten. Because the Fokker bit 
map is located by the coordinates 
of the upper-left corner, the fuselage 
“hit zone” is simply offset by a simi- 
lar range of coordinates surround- 
ing the corner. 

The area of sky within the bit map 
beyond the actual image is used to 
blot parts of the previous image 
when a new one is written. The 
extent of the “extra” sky is thus 
directly related to the amount of 
random motion allowed with the 
image. Experimentation resulted in 
limiting the maximum range of 
random movement from the current 
location to plus or minus four 
pixels. Combined with a possible 
two additional pixels’ movement 
from a cursor keypress, the maxi- 
mum Fokker movement is six pixels 
per loop cycle. The area of sky sur- 
rounding the Fokker would allow 
for more random motion without 
leaving garbage all over the screen, 
but I don’t think you'll really want it. 

The program was developed using 
both a Compaq Deskpro (8086) and 
a 6-MHz IBM PC/AT, with the QUICK- 
EYS.COM keyboard speedup pro- 
gram. QUICKEYS.COM was listed in 
a back issue of PC Magazine and can 
be downloaded from its IRS bulletin 
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The Software 


AW] 


e the only complete version of AWK available for DOS; 

e fully compatible with the latest description in The AWK Programming 
Language, by Aho, Weinberger, and Kernighan: 

easy to learn, giving beginners results with little effort: 

the natural introduction to mastering the C programming language; 

text substitution and pattern matching; 

definable functions; 

associative arrays and regular expressions; 

hardware floating point and large model version: 

rapid prototyping tool for larger programs. 


he Book 


written by the authors of the original 
UNIX-based program, Alfred V. Aho, Peter J. 
Weinberger, and Brian W. Kernighan; 

the definitive book on AWK just as “The C 
Programming Language,” by Kernighan and 
Ritchie, defined C; 

e recently published by Addison-Wesley; 

e lists at $21.95; 

e with MKS AWK only $14.00. 












The AWKx, 


Programming ‘=* 
Language 










ALFRED V. AHO 
BRIAN W. KeRNIGHAN 
PETER J. WEINBERGER 






Experience the power of a UNIX programming language on your desktop PC without 
sacrificing your investment in DOS applications and training. 

AWK is a versatile first language for non-programmers and a sophisticated data retrieval 
and report generation tool for the experienced user. Based on a sequence of terse 
pattern/action rules, AWK allows you to manipulate files for retrieval, transformation, 
reduction, and validation of data. MKS AWK comes with full technical and tutorial docu- 
mentation to speed your mastering of this fourth generation programming language. 


MKS AWK sells for $75. 
Order both the software and the book from MKS for $89. 





Also available: 


The MKS Toolkit: over 110 UNIX-based tools for DOS including the 
Korn Shell, Vi, and AWK, complete with nearly 400 pages of 
documentation and tutorials. 


The complete package: $139. 

MKS Vi: the UNIX screen editor running under DOS at lightning fast 
speeds — it’s tuned for the PC. 

Comes with Tutorial and Reference Manual for $75. 





Mortice Kern Systems Inc., 


43 Bridgeport Road East, Waterloo, Ontario, Canada, N2) 2)4 (519) 884-2251 


uucp: allegra, decvax, ihnp4}!watmath!mks!toolkit 
MKS AWK runs under MS-DOS 2.0 or later. Not copy protected. Prices quoted in US funds. VISA, MASTERCARD, 
American Express, uucp, and purchase orders are accepted. Overseas orders please add $10 for postage and 
handling. MKS is a registered trademark of Mortice Kern Systems Inc. UNIX is a trademark of AT&T Bell Labs. 
MS-DOS is a trademark of Microsoft Corp. 
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EGA GRAPHICS 
(continued from page 51) 


board. (Ray Duncan reports that 
Cruise Control also works.) FOKKER 
runs fine, albeit a little slowly, on a 
vanilla PC without OQUICKEYS, but 
with anything faster than a 4.77- 
MHz 8088, it requires some sort of 
keyboard speedup program. The 
normal keyboard routines just don't 
read the stick routines fast enough, 
and the Fokker flies off the screen 
despite all efforts to catch him. 
UR/FORTH users may want to use 
Tom Almy’s Native Code Compiler 
to make the game faster on a stan- 


dard PC, but it really doesn't need 
the extra speed on faster machines. 
On both Compaq 386 and Zenith 
386 models, it is really too fast and 
probably ought to have a slow-down 
loop in the gun firing routines 
added. The rate of fire varies with 
the processor, also. An 80386 will 
fire at about 480 rounds per minute 
(per gun), a possible but high rate. 
(World War I aircraft synchronizers 
varied the rate of fire with engine 
speed.) 


The Game Listing 
The source is heavily commented. 
Probably the easiest way to under- 





If You Have Turbo C You Have 
Half Your C-Programming Vehicle 


Turbo C is a great compiler but there is 
one vital cog missing— debugging. 
Without it, you have to spend an awful 
lot of energy to go a short distance. 


Gimpel Software’s C-terp, long recog- 
nized as the leading C interpreter, now 
fully supports Turbo C with com- 
plete compatibility guaranteed. 


Interactive Debugger — Our 
debugging facilities include split 
screen (code in upper portion, 
dialog in lower), breakpoints 
(sticky, temporary, line/function, cursor- 
directed), display of structures and arrays, 
execution of any expression (even those 
involving macros), function traceback 
with arguments, watch expressions and 
watch conditions (watchpoints). Our 
watch expressions can be structs or 
arrays. We catch out-of-bounds pointers! 


No Toy — Full K&R with ANSI enhance- 
ments. Multiple-module with a built-in 
automatic make. It has virtual memory 
option (with optional direct use of ex- 
tended memory) and a shared symbol 
option for those big programs. It supports 
graphics, dual displays and the EGA 
43-line mode. 


Links to external libraries — (both code 
and data, automatically) which can call 
back to interpreted functions. Function 
pointers are compiler compatible. 


100% Turbo-C compatible. — Same 
header (.h) files, data alignment, bit field 
orderings and preprocessor variables as 


your compiler. We link in your com- 
piler’s library. 


Our reconfigurable editor — is multifile 


and comes with a configuration script to 
mimic Turbo’s editor. 
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The missing wheel that will 
turn your half-cycle into a bicycle 


C-terp 


Order C-terp today! 
Call (215) 584-4261 


Introductory Price for Turbo C-terp: 


$139.00 


VISA, MC, COD — 30 day money back 
guarantee 


C-terp Version 3.0 is also available for the 
following compilers: 

Microsoft, Lattice, Aztec, C86, and Mark 
Williams ($298) and Xenix ($498). 


i“ 


GIMPEL SOFTWARE 


3207 Hogarth Lane 
Collegeville, PA 19426 


C-terp is a trademark of Gimpel Software. and Turbo C of 
Borland International. 


stand the game is to examine the 
main loop definition on Screen 15. 
After setting initial values, display 
mode, and so on, DOGFIGHT enters 
a BEGIN...AGAIN loop. DR.1 puts 
the Fokker bit-map address on the 
stack. Next, the current screen coor- 
dinates of the upper-left CORNER of 
the bit map are fetched to the stack. 
MOVEFOKKER leaves two random 
values within the current RANGE of 
random motion on the stack. These 
are vector-added to CORNER'’s x and 
y. ?STICK then determines if a 
cursor keypress is in the buffer and, 
if it is, leaves values appropriate to 
the key pressed on the stack; other- 
wise, it leaves a pair of Os. The 
?STICK values are then vector-added 
to the previously “moved” corner 
values, and the Fokker is displayed 
at the new location by !BLOCK. What 
this does is randomly shift the 
Fokker’s position and allow your 
keypress to counteract (somewhat) 
the random shift. 

Next, SHOOTING? (defined in 
Screen 10) polls the keyboard and, if 
a key has been pressed, checks to 
see if it was the space bar. If it was, 
then if there is any AMMO left, it 
fires the guns, decrementing the 
ammo by two rounds, and calls 
HIT? (defined in Screen 9) to see if 
CORNER is within the x,y range that 
describes a hit in the Fokker’s cock- 
pit zone. If there is a hit, it’s actually 
two hits (two guns, right?), and so 
#HITS is incremented by 2. With 
each four hits EXCITEMENT incre- 
ments the RANGE of random motion 
and the Fokker pilot shouts a curse, 
in German, to distract you. To avoid 
offending anyone, I have made the 
curses in Screen 8 merely illustra- 
tive, but you can probably come up 
with somewhat more irritating and 
appropriate phrases. 

Back in the DOGFIGHT loop, you 
now check #HITS again to see if the 
Fokker has been hit 20 times. If it 
has, it EXPLODEs’ with three 
BURSTs, and you WIN and EXIT. If 
it hasn't been hit 20 times, you 
check the AMMO remaining. If it’s 
zero, you LOSE and EXIT. Finally, 
you redisplay the GUNSIGHT. 

The code for ?stick in Screen 7 
leaves —2s, Os, or + 2s depending on 
the key pressed. Initially, the RANGE 
of Fokker motion is set at -1 to +1. 
This means that you can outfly the 
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Fokker easily, at first. With each four 
hits in the fuselage of the triplane, 
however, RANGE expands by —1 and 
+1: after the first 4 hits, RANGE is 
—2 to +2; after 16 hits, it is -4 to 
+ 4—\- twice the range of control you 
have with the numeric keypad. Be- 
cause you are making a conscious 
effort to move in one direction, and 
the Fokker is moving randomly, you 
can still get him in your sights after 
16 hits (statistically). But he doesn’t 
stay there very long! 

Screen 1 loads UR/FORTH’s DOS 
level-2 interface and builds the file- 
handling words. Screen 2 assumes 
you have a file containing the Fokker 
image, called DERFOKKR.IMG, in the 
same directory and loads it into 
memory. Note that DR.1 allots 3,000 
bytes whereas the file is only 
2,866 + 16 (palette) bytes long. 

There is something funny going 
on in LMI’s sizing of arrays for 
(@BLOCK and !BLOCK, and the “cor- 
rect’ values seem to pick up garbage 
somehow; the ‘oversized’ 3,000 
bytes is empirically adequate. 


Availability 

All the source code for articles in 
this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb's Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 

For non-Forth programmers with 
an EGA display who want to pit 
their skill against the red Fokker, a 
complete unprotected run-time ver- 
sion (load-and-go .EXE file) is avail- 
able from me for $14—cash, check, 
or M.O. only; no purchase orders, 
please. Have fun! 
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ARTICLES 


Automated Interrupt 





good case could be made 
that anything that makes the 





easier is socially counterproductive. 
There are too many of those darned 
things already. But at times it can 
be useful to hack out a quick resi- 
dent utility to serve a transient pur- 
pose such as reconfiguring hard- 
ware on the fly or offering an extra 
help screen, in much the same way 
as it is sometimes useful to hack out 
a file filter or a printer configuration 
utility. If you need to do such things, 
doing them in a high-level language 
adds immeasurably to the ease and 
accuracy of the results. 

Any MS-DOS programmer who 
writes memory-resident utilities or 
works with serial communications 
knows that coding interrupt han- 
dlers is a task that quickly becomes 
tedious without ever becoming rou- 
tine. Debugging one more run of 
assembly language—especially some 
assembly language triggered by an- 
other program—inevitably burdens 
any project with considerable over- 
head. If only there were some way 
to get the requisite PUSHs, POPs, 
CLIs, STIs, and MOVs straight once 
and for all. 

If a set of assembly-language rou- 
tines for interrupt handling could 
be regularized and debugged and 
compiled, the modules could be 
stored away in a library for linking 
with high-level code used for the 
bulk of the interrupt handlers them- 
selves. 

Unfortunately, interrupt handlers 
are exceedingly specialized objects. 





Ron Miller, 1157 Ellison Dr., Pen- 
sacola, FL 32503. Ron is a regular 
contributor to Micro Cornucopia. 
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writing of resident programs | 


by Ron Miller 


Make your own 
TSR utilities 


Different registers must be set and 
preserved; different interrupts called; 
and in some cases, flags must be 
returned intact. The programmer 
who writes everything from scratch 
in assembly language at least retains 
absolute control over all registers 
and flags, but once you move into a 
high-level language such as C, the 
registers and flags cease to be easy 
to supervise. If every line of C must 
be scrutinized to determine what 
registers will be altered and what 
flags will be set, why not just stick 
with low-level coding? 

I have, I believe, devised some- 
thing close to a minimal system for 
automating the process so that in- 
terrupt handling, no matter how com- 
plex, can be taken out of the realm 
of assembly language and be made 
routine. Inevitably, there are patches 
of assembly language in the system, 
and some of it is compiler and/or 
memory model dependent. These 
routines, however, can be done 
once, then put away for linking on 
demand. 


A Sketch of the Process 

The key to successfully implement- 
ing this system is a two-step proce- 
dure in which a standardized low- 
level handler is invoked by the inter- 
rupt itself. This invariant first stage 
transforms the registers (and the 
Stack, if necessary) so that the rou- 






Handling in C 


tine can act as a simple C function 
that calls another C function to do 
the actual work of the handler. This 
reestablishment of the C environ- 
ment allows the high-level handler 
to use the full range of C syntax, to 
access the run-time package, and to 
employ automatic and previously in- 
itialized static variables. Variations 
from handler to handler can thus 
be confined to the far more easily 
maintained context of a high-level 
language. 

Four linkable assembly-language 
routines are involved in every appli- 
cation: 


1. A trivial initializing routine that 
stores the data segment of the C 
code in the code segment of the 
low-level handler. 
2. A generalized low-level handler 
routine that: 

® PUSHes the registers 

®@resets the ds register (and per- 
haps other registers) to the values 
needed for operation by the actual 
resident C code 

® calls the high-level handler itself 

@POPs the registers on return 
from the high-level handler 

@ returns from the interrupt itself 
3. An interrupt function that can 
address the operating system from 
within the high-level handler. As you 
will see, this function must use the 
register stack generated by the low- 
level handler routine as its data-in 
and data-out structure. 
4. A routine that swaps the 32-bit 
address of the low-level interrupt 
handler for the interrupt vector 
being captured while moving the 
original vector to an unoccupied lo- 
cation in the interrupt table for call- 
ing or chaining. 
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In the code fragments to follow, I 
neglect to set up the necessary 
PROCs, ASSUMEs, and SEGMENTs 
for linking because those housekeep- 
ing details will vary from compiler 
to compiler. The /bp+xx/ address- 
ing may be displaced by a word or 
two from what you need, but a 
glance at a bit of assembly-language 
output from your compiler should 
reveal the necessary adjustments. 


Storing the Data Segment 
Address 

At the very least, for a handler’s 
resident C code to work properly, 
the ds register must be reset to its 
original value. This is made possible 
by inserting a saveds() call some- 
where in the initializing code before 
any vector swapping is carried out. 


Coding 
interrupt handlers 
is a task 
that quickly 
becomes tedious 
without 
ever becoming 
routine. 


The object library of the program- 
mer should therefore contain a com- 
piled version of the following code: 


PUBLIC saveds__,c__ds 
c__ds dw 0 ;In-code storage slot for 
DS. 
saveds__: ;Or however your compiler/ 
assembler alters 
;jpublic names for assembly 
-language reference. 
mov Cs:c__ds, 
ret 


This assumes that your handler is 
not so complex that it requires a 
separate stack; if it does, ss and sp 
for the internal stack could also be 
squirreled away for recall. My advice, 
however, is to keep auto variables to 
the minimum needed for communi- 
cation between C functions. Play stor- 
age games with static variables if 
considerable storage is needed. 
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Keep it simple; use the other fellow’s 
stack. 


The Low-Level 
Interrupt Handler 
The outline given earlier provides 
the rationale for the code in Listing 
One, page 100. This routine, labeled 
Lhand1(), provides the segment/ 
offset address actually inserted into 
the interrupt table. In all the code 
to follow, I use the prefix L to tag 
low-level interrupt handlers and H 
to tag high-level ones. 

Because some interrupts return 
information in the flags, you cannot 
use iret to end the routine. FAR ret 


2 strips the old flag off the stack to 
preserve the return. If this routine is 
not assembled as a FAR procedure, 
the ret 2 must be replaced by db 
Ocah,2,0 so that a FAR return to the 
caller is made. I urge you, if at all 
possible, to write your high-level han- 
dlers in a “large” C so that all calls 
and returns are FAR and so that the 
entire memory of the computer is 
available to operations using point- 
ers. The small decrease in code size 
using a small-model C is more than 
paid for by the need to allocate peek 
and poke room in the data segment 
when FAR manipulations must be 
made. 


Fast Execution Speed. 


Sieve (25 iterations) 
Loo 
Float 


Microsoft® C 4.0 
5 


Microsoft C 5.0 


11.0 0* 


19.9 
5 


« New optimizations generate the Tistest code: 
— Inline code generation. NEW! 
— Loop optimizations: NEW! 
— Loop invariant expression removal. NEW! 
— Automatic register allocation of variables. NEW! 
—Elhmination of common sub expressions. 
—Improved constant folding and value propagation. 
- Fine tune your programs for even greater speed: 
— Coding techniques for writing the fastest possible 
programs are inclided in the documentation. NEW! 
—Segment Allocation Control: 
| —Group functions into the same segment to get faster 


NEAR calls. NEW! 


— Specify which segments receive variables to yield 
faster NEAR references. NEW! 
— Uses register variable declarations. 
— Mix memory models using NEAR, FAR & HUGE 


pointers. 
*Time is negligible. 
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WINDOWS FOR DATA® 





Uncommon Screens 








| f you program in C, take a few 


moments to learn how Windows for 
Data can help you build a state-of-the- 
art user interface. 


(_] Create and manage menus, data-entry forms, context- 
sensitive help, and text displays — all within windows. 
(_] Provide a common user interface for programs that must 
run on different machines and operating systems. 

_] Build a better front end for any DBMS that has a C- 
language interface (most popular ones do). 


FROM END TO BEGINNING 

Windows for Data begins 
where other screen packages end, 
with special features like nested 
pop-up forms and menus, field en- 
try from lists of choices, scrollable 
regions for the entry of variable 
numbers of line items, and an ex- 
clusive built-in debugging system. 
Cr 
NO WALLS 

If you’ve been frustrated by the limitations of other 
screen utilities, don’t be discouraged. You won't run into 
walls with Windows for Data. Our customers repeated- 
ly tell us how they’ve used our system in ways we never 
imagined — but which we anticipated by designing Win- 
dows for Data for unprecedented adapatability. You will 
be amazed at what you can do with Windows for Data. 


| 














YOU ARE ALWAYS IN CHARGE 

Control functions that you write and attach to fields 
and/or keys can read, compare, validate, and change the 
data values in all fields of the form. Upon entry or exit 
from any field, control functions can call up subsidiary 
forms and menus, change the active field, exit or abort 





OUR WINDOWS 
WILL OPEN DOORS 

Our windows will open doors to 
new markets for your software. 
High-performance, source-code- 
compatible versions of Windows 
for Data are available for 
PCDOS (OS/2 soon), XENIX, 

= UNIX, and VMS. PCDOS 

versions are fully compatible with Microsoft Windows, 
TopView, and DESQview. No royalties. 

You owe it to yourself and your programs to try Win- 
dows for Data. If not satisfied, return for a full refund. 
Call for FREE DEMO. 


Vermont 
Creative 


Software 


21 Elm Ave, Richford, VT 05476 
Telex: 510-601-4160 VCSOFT FAX 802-848-3502 
Tel.: 802-848-7731 ext. 31 


Prices: PCDOS* $395; XENIX, VMS, UNIX Call. 
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INTERRUPT HANDLING 
(continued from page 55) 


You'll note that the routine calls 
an EXTERN Hhandi_. Naturally, 
you must name your high-level han- 
dler Hhand1() so that the linker can 
find it. The 1 in the name allows you 
to place several versions—Lhand1( ), 
Lhand2(), Lhand3(), and so on—into 
your library for use in complex pro- 
grams involving several interrupt han- 
dlers. As long as each low-level han- 
dler calls its proper high-level part- 
ner, there isn't any confusion. 

As you will see in the next sec- 
tion, the power of this strategy de- 
pends upon having the call to the 
high-level handler immediately pre- 
ceded by the push-the-registers state- 
ments. If you insist upon setting up 
your own stack, swap ss and sp 
before the PUSHf and after the POPf 
so the register stack also serves as 
the stack for the C routine. 


The High-Level Handler 

The design of the high-level handler 
depends on an interesting feature 
of the C language: setting up the 
stack before, and cleaning up the 
stack after a function call, are the 
responsibilities of the calling rou- 
tine, not of the function itself. C 
does this, I gather, to allow for the 
passing of a variable number of argu- 
ments. One secondary consequence 
of this design is that your higher- 
level function can be fooled into 
treating the stack it inherits as if it 
contained function arguments. 
Thus, if you give your C code han- 
dler a fake argument such as: 


Hhand1 (fake) 
int fake; 
1.4 


the compiler will treat the 2-byte 
region containing the pushed value 
of the ax register as though it were 
an integer that had been passed to 
the function. In effect, the entire 
stack of pushed register values be- 
comes available to the high-level han- 
dler as an automatic variable. 

If within the handler you declare: 


typedef struct { 
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int ax,bx,cx,dx,di,si,bp,ds,es,flags: 
int; 
} REGS; 


REGS *regs; 


and then initialize regs to point to 
the base of the stack: 


regs = &fake; 


the stack is mapped to that struc- 
ture. (In practice, of course, this struc- 
tural definition would be handled 
globally with an #include statement.) 

Want to set dx on the stack to 0? 


Write regs->dx = 0; without leaving 
C. After the higher-level routine is 
exited and the low-level routine 
POPs the stack it had PUSHed, the 
original calling routine will see a 
return of 00 in dx. It doesn’t matter 
what the C routine has done to the 
actual value of dx in the meantime, 
because upon POPping the registers, 
the low-level routine will restore the 
old values—unless some purposeful 
changes have been made to the vir- 
tual structure *regs. 

The value of this ploy becomes 
clearer with a specific example. Sup- 
pose you wish to write a resident 
program that captures interrupt 16h 


Speed. 


Fast Compilation. 
Fast Prototyping. 


Microsoft C Version 5.0 includes QuickC® which 
lets you edit, compile, debug, and execute in an 
integrated environment. It’s ideal for prototyping. 
¢In-memory compilation at 10,000 lines/ 


minute. NEW! 


¢ Built-in editor with parentheses, bracket and 


brace matching. 


«Use the integrated debugger to animate through 
your program, add watch variables and set 
dynamic breakpoints. NEW! 

- MAKE file is automatically generated for you. 
Simply indicate the modules you want to use, 
then MAKE recompiles and links only those 
modules that have changed. NEW! 

¢Full C 5.0 compatibility: 

—Completely source and object code compatible. 
— Emits CodeView®-supported executables. 
— Identical compile/link command line switches. 
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Users and industry press alike have 
unanimously proclaimed BRIEF as 
the best program editor available 
today. Now, the best gets better, 
with the release of BRIEF 2.0. 

Straight from the box, BRIEF offers 
an exceptional range of features. 
Many users find that BRIEF is the 
only editor they'll ever need, with 
features like real, multi-level Undo, 
flexible windowing and unlimited 
file size. But BRIEF has tremendous 
hidden power in its exclusive macro 
language. With it, you can turn BRIEF 


Sees. 


541 Main Street 

Suite 410D 

So. Weymouth, MA 02190 
(617) 337-6963 





Requires an IBM PC or compatible with 
at least 192K RAM. 


BRIEF is a trademark of UnderWare, Inc. 
Solution Systems is a trademark of Solution Systems. 


CIRCLE 142 ON READER SERVICE CARD 


AND FLEXIBILITY 
BRIEF 2.0 


into your own custom editor con- 
taining the commands and features 
you desire. It's fast and easy. 

Jerry Pournelle, columnist for BYTE 
magazine summed it all up by saying 
BRIEF is, “Recommended. If you 
need a general purpose PC program- 
ming editor, look no further’ His 
point of view has been affirmed by 
rave reviews in C JOURNAL, 
COMPUTER LANGUAGE, DR. 
DOBB'S JOURNAL, DATA BASED 
ADVISOR, INFOWORLD AND 
PC MAGAZINE. 
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One user stated ‘BRIEF is one of 
the few pieces of software that I 
would dare call a masterpiece.’ 
Order BRIEF now and find out why. 
BRIEF 2.0 is just $195. If you already 
own BRIEF call for upgrade 
information. 

TO ORDER CALL: 1-800-821-2492 
(in MA call 617-337-6963) 
As always, BRIEF comes with a 


30 day money-back satisfaction 
guarantee. 
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INTERRUPT HANDLING 
(continued from page 57) 


and checks for five different hot keys 
that trigger five alternative routines. 
You would put a long pointer to 
Lhand1() in the place of int 16h in 
the interrupt table and move the old 
int 16h vector out at NEW16. The 
higher-level routine could be writ- 
ten as in Listing Two, page 100. 

This, I submit, is considerably 
easier to write and maintain than 
an equivalent assembly-language rou- 
tine full of CMPs, labels, and leap- 
froggings. 


The Interrupt Function 

With luck, your particular version of 
C offers an “interrupt” function that 
permits the stack manipulations de- 
scribed in the previous section. The 
requirements are: 


@the use of a pointer-to-a-register- 
structure as an argument for the 
calling function 


@the inclusion of all data-bearing 
registers (including a separate “flag” 
integer) in that structure 


@the potential for using a single 
memory region as both *inregs and 
“outregs, to use the old Lattice 
int86() terminology. In this case all 
you need to do is be sure to PUSH 
and POP the registers in the low- 
level handler in exactly the order 
ordained by the function definition 
you have inherited. 


If, as seems likely, your compiler 
has made other choices, you can 
find a suitable version for assem- 
bling in Listing Three, page 100. 
There is probably no need to ana- 


sumes 32-bit pointers and a need to 
preserve ds and bp across the func- 
tion call. Anyone who will profit 
from automating interrupt handling 
will be able to check his or her own 
compiler’s assembler output and 
modify the base pointer addressing 
to fit the brand and the memory 
model at hand. The basic strategy is 
to load the registers from the struc- 
ture pointed at, make the call in 





question, reload the structure with 


ps Nas CO ee ant ee eee 
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lyze the code at length, except to | 
observe that the version offered as- | 





the returning values in the registers, 
and exit. 

It is worth noting that the inter- 
rupt function in Listing Three has 
the added virtue of being reentrant 
—which can be significant if you're 
capturing more than one interrupt 
vector in a resident program. Earlier 


drafts of this system broke down 
because I tried movsbing parts of 
the stack back and forth to the 
global array used by my compiler’s 
interrupt function. Why not adapt 
the situation, I reasoned, to the 
ready-made function? Things went 
swimmingly in simple hot-key rou- 
tines. When I used the clock inter- 


rupt to poll the DOS-is-interruptable 
flag given by interrupt 21h service 
34h, however, the register stacks for 
various interrupts began to corrupt 
one another 18.2 times a second. 
Moreover, the compiler’s routine did 
not return the raw flags but pro- 
vided separate carry and zero flag 


Booleans. I found myself having to 
AND and OR the stack to set up the 
return. It seemed simpler to write 
my own function. 


The Interrupt Vector 
Swapping Routine 
The code for the interrupt vector 


And speed. 










support. NEW! 


program execution: 


to your hardware: 


program executes. 


Fast Debugging. 


Microsoft C Version 5.0 includes Microsoft CodeView, 
our source-level windowing debugger that lets you debug 
more quickly and thoroughly than ever before. 
¢ Debug larger programs: 
— Debug through overlays created by the 
Microsoft overlay linker. NEW! 
— Expanded Memory Specification (EMS) 


«Fast debugging through precise control of your 


— Access source level and symbolic debug information 
from your Microsoft C, FORTRAN, and Macro 
Assembler programs. NEW! 

— View your source code and assembly simultaneously. 

— Watch the value of variables change as you execute. 

— Set conditional breakpoints. 

— Animate or single step through your program. 

* CodeView brings you as close as you’ve ever been 


— Swap between your code and output screens. 
— Watch your registers and flags change as your © : 


All benchmarks run on an IBM® Personal System/2™ 


For your free C 5.0 information packet, call: — 


(800) 426-9400. 




















In Washington State and Alaska, (206) 882-8088. In Canada (416) 673-7638. 
Microsoft, the Microsoft logo and CodeView are registered trademarks and QuickC 
is a trademark of Microsoft Corporation. IBM is a registered trademark and 
Personal System/2 is a trademark of International Business Machines Corporation. 
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Instant Replay” includes a Screen Maker 
for building pop-up windows, prototype win- 
dows, and menu windows. Other useful tools 
include a Prototyper, Keystroke Editor, Music 
Maker, Menu Maker, Presentation Text Editor, 
Control Guide, and Insertion Guide. 

The screen editor Screen Genie ” is de- 
signed to be memorized by Instant Replay. ” 
OTe ie meh ee rmtecrerSasitemti Pat rime) 
Screen Genie’ and memorize your activity. 

Instant Replay ’ for IBM and True Compat- 
ibles, requires DOS 2.0 or greater. Instant 
Replay ” is not copy protected. There are no 
Oe ice Mec iiecimimerlr aie hi tiili mel] 
eres 


Instant Replay” at $149.95 is an exciting 
new product. Because of the quality of this 
product, Nostradamus® provides a 60-day 
satisfaction money back guarantee. Call or 
write, we accept VISA, AmEx, C_.O.D., Check 
or P.O. with orders. Demo diskettes and free 
product brochure available, 
Nostradamus, Inc. 3191 S. Celta rp 
(ste. 252) Salt Lake City, Utah 84109 
voice (801) 487-9662 
Data/BBS 801-487-9715 Lae Cult es ee 





See us at 





November 2-6, 1987 


Bally's Las Vegas B210 


Las Vegas, Nevada 






¢c Demo Animator 
Dynamic Menu Maker 
Memorize and Replay actual programs 
Memorize and Replay screens only 
Insert: prompts, pop-ups, prototypes, 
music, and user involvement into replays 
Make insertions while creating or 
RA dItT | 

Generate Vapor Ware from actual 
programs 

Siem lag yee elmer kell) 
elastic Midi emo m LL LLG 


Prototyper that includes slide shows, 
menus, and nesting 


Keystroke/time editor, inserter, and 
merger 


Replay chaining and linking 
Medular demo making facilities 
Fast forward and single step modes 
Self Made Tutorial included 

Timed Keyboard Macros 

Numerous and powerful operator input 
options for Tutorials 

SMa Memes ib Gg 
Transparent Windows 

Change Defaults 

Foreground or Background Music 
Canned special sound effects 
Unlimited replay branching 
Compressed screens 

eT em eed: eel as) 
Tracking editor 

Plus much more. . . 
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“Instant Replay” is one of those 

products with the potential to go from 
unknown to indispensable in your 
software library.” PC Magazine , 


“Incredible ... We built our entire | 
Comdex Presentation with Instant : 
Replay.” Panasonic ; 


“Instant Replay “ 

brings new flexibility to prototypes, 
tutorials, & their eventual implemen- 
tation.” Electronic Design 
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“You need Instant Replay!” 
Nashington Post 
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NoBlink Accelerator™ 
Assembler Genie™ 


DOS Assistant™ 


Programming Libraries - 
Supports Turbo Pascal 4.0, Turbo C, MS Quick C 


HardRunner™ | 
... and more ; 














_nonzero in ax (modify it if ax is not | 
vour integer-return register) if the | 





' model C 


INTERRUPT HANDLING 


(continued on page 59) 





swapping routine is in Listing Four, 
page 101. It uses int 21h, functions 
35h and 25h, to get and put inter- 
rupt vectors. By setting up a stan- 


| dard function that uses the old in- 


terrupt number, the new (or 
chained) interrupt number, and a 


can carry out the entire process of 
vector swapping without explicit re- 
course to assembly language. Notice 
that the swap routine returns 


chaining interrupt is in use. Such a 
feature could be useful in a find-an- 
unused-interrupt routine. 

Once again I assume 32-bit point- 
ers and preserve bp and ds. A small- 
routine would require 
more explicit loading of segment reg- 
isters into ds before using service 
25h. In anv case, the name of the 


_ low-level interrupt handler (in this 


| case, Lhand1) is used as the final 





function argument because C com- 











handler code itself. Listing Five, page 
102, provides a template for initializ- 


ing a generic resident program. For 


claritv's sake I capture a single inter- 
rupt; however, there is no limit to 
the number of vectors that can be 


_ inserted into the table with multiple | 
_chgint(/s. Certainly, in production | 
_software the error-handling would | 


_be more complex. 
pointer to the low-level handler, you | 


To estimate the program size, | 





_ ordinarily use interrupt 27h, service | 
51h, to obtain the PSP address of the 


|C program, 
number from the paragraph address 


| 


pilers treat a function name by itself | 


as a function pointer—32- or 16-bit 
—depending on the memory model. 


Setting Things Up 


If the four functions I’ve discussed 
have been compiled and stored in 


an object file library, setting up a 


resident program is scarcely more 


complicated than the writing of the | 
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then subtract that 


of the top of the static heap —plus 
a couple more paragraphs just to be 
on the safe side. 
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(Listings begin on page 100.) 


Vote for your favorite feature/article 
Circle Reader Service No. 5. 





And here’s 
‘the speeciest pace 


_ to get Co.0: 











discount price. 


Just visit any Egghead store. 
There’s more than 70 nationwide. 
_ And each one has C5.0 in stock, ata 


: Or, just give us a call on our toll- - a 
free number. We'll send you Cd.0 by © 7.  . 
mail. Within 72 hours. | 

It’s the fastest way we know to get — 
a great deal on a very fast compiler. 


Call 1-800-EGGHEAD 






















a 





61 


ARTICLES 


An Alternative 





... Uf things had to be identical before 
you could recognize them, you would 
never recognize anything at 
all.... The fact is that our ability to 
work and to act in the real world de- 


pends on our accepting a “tolerance” 


in our recognition and in our language. 
—Jacob Bronowski, A Sense of the 
Future 


uch of the art of communi- 
Mw cation relies on the ability 
to differentiate what is 


meant from what is said. This goes 
far toward explaining why I have so 
much trouble at the keyboard; com- 
puters have none of the tolerance 
that a bad (and slightly dyslexic) typ- 
ist such as myself needs. My comput- 
er doesn’t understand that ‘‘dri’’ 
means “dir,’”’ so it yells ‘Bad com- 
mand or file name,” then sits there, 
waiting for something intelligible. 

To you and me, it’s obvious what 
command I actually meant, but to the 
computer, lacking the recognition 
tolerance shaped by millions of years 
of evolution, the input is gibberish. 
As simple as this example seems, it 
has proved a difficult problem to 
solve through some mechanism that 
a computer can use efficiently. In 
spite of the time and effort that have 
gone into attempts to solve this prob- 
lem (the venerable Soundex algo- 
rithm dates from World War DI, no 
wholly satisfactory solution has yet 
come to light. 

But that isn’t to say that there 
haven't been gains on the problem. 
In fact, another promising solution 
has recently arisen that is certainly 





Jim Howell, 45 Lodgepole Dr., Ever- 
green, CO 80439. Jim is a former geolo- 
gist who now works as a programmer 


for Reference’ Technology in 
Evergreen. 
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by Jim Howell 


Upping the 


word- matching 
hit rate 





worth passing on, warts and all. The 
algorithm comes from Michael 
Bickel and was published in the 
March issue of the CACM.! 

The method is simple—each letter 
has a weight associated with it. The 
“likeness score’ between two words 
is calculated by summing the weights 
of all the letters in common between 
the two words, each letter being 
counted only once. Letters are con- 
verted to uppercase, and numbers, 
punctuation, and white space are ig- 
nored. The method can be easily 
made sensitive to case or to consider 
numbers. 

The weights are based on the fre- 
quencies of the letters, being the neg- 
ative of the logarithm (base 2) of the 
frequency of the letter (the frequen- 


Letters 


aeinost 
dhiru 
cfgmpw 


DV 

kq 

jx, y 

z 

all others 


COMO ON DO & OW 





Table 1: Letter weights used in 
Bickel’s algorithm 





Table 2: Positions in the letter set 


to Soundex 


cies sum to 1.0). This gives greater 
weight to the less common letters. 
Bickel’s weights are given in Table 1, 
below. 

As an example, say you want to 
match the word ecdysiast. You first 
create a set (I call this a letter set; 
Bickel uses the name MASK)—ac- 
deisty—from the letters in the word. 
Now consider the word ecstasy, 
which has the letter set acesty. To 
compare these, take the intersection 
of the two sets—namely, acesty. The 
first letter in the new set is a. The 
weight of this letter is 3, so the like- 
ness score is set to this. The next letter 
is c, so you add 5 to the score. Then 
add 3 for e, 3 for s,3 more for t, and 8 
for y to give a likeness of 25. 

To compare ecdysiast to ectoplasm, 
you form the letter set acelmopst. 
The intersection with the set of ec- 
dysiast is acest, and so the likeness 
score of these two words is only 17. If 
you were to transpose two letters 
and compare edcysiast, say, the like- 
ness scores would still be 25 and 17. 
The score of comparing ecdysiast 
and edcysiast would be 32, however, 
so ecdysiast becomes the word to 
look at more closely. 


Implementation 

Bickel illustrated the algorithm using 
NOMAD2 (a fourth-generation lan- 
guage), but it can just as easily be im- - 
plemented in C using a bit set with 26 
members. For each word, set the ap- 
propriate bit for each letter, leaving 
the rest unset. Then combine the two 
sets with a logical AND. Only the com- 
mon letters are left in the combined 
set, which are then added using the 
appropriate weights. 

You can do this in several ways. I 
chose to use a 4-byte array (of type 
unsigned char) to hold the letter set. A 
static data array, which is indexed by 
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lowercase letters, is initialized with 
the index to the appropriate byte in 
the letter set array along with the 
mask necessary to set the correct bit 
(see Listing One, page 110). The letter 
set array is designed so that the first 
three bytes have common weights, 
with the rest being stuffed into the 
fourth byte (see Table 2, page 54). 

To construct the letter set for a 
word, go through the word charac- 
ter by character. If the character is a 
letter, convert it to lowercase and use 
this as an index into the data array to 
set the appropriate bit in the letter set 
array. Duplicate letters result in 
needless repetition; once a bit is set, 
setting it again doesn’t do any good, 
but any scheme to avoid setting an 
already set bit would have too much 
overhead, so the problem, such as it 
is, is ignored. 

Calculating the likeness score from 
the two letter sets is straightforward. 
The first three bytes use a common 
algorithm. Combine the appropriate 
bytes from the two letter sets into a 
mask with a logical AND; then exam- 
ine the rightmost bit of the resulting 
byte, and if it is set, increase the like- 
ness score by the appropriate weight; 
and finally, shift the mask to the right 
one bit and examine the rightmost 
byte, and so on through the bits, us- 
ing a for loop. 

The fourth byte is more complicat- 
ed because its letters have different 
weights. The easiest solution is to op- 
erate on each bit individually, in ef- 
fect hard-wiring the weights. Speed 
is most important here, space and el- 
egance less so. 

As an example, let’s search the set 
of keywords in Table 3, right, using 
several common (for me) misspell- 
ings of geochemistry. Using geochem- 
sitry (s and i transposed), the highest 
likeness scores are: 


geochemistry (46) 
biochemistry (41) 
geochronometry (40) 
geothermics (38) 
geophysical (34) 


A search with another misspelling 
geochemistru (u mistyped for y)— 
gives: 


geochemistry (38) 
geothermics (38) 
biochemistry (33) 
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geochronometry (32) 
geochemical (28) 


And using geochemistr (y dropped), 
you have: 


geochemistry (38) 
geothermics (38) 
biochemistry (33) 
geochronometry (32) 
geochemical (28) 


If the search word is simply chem- 
sitry (with the transposition), the best 
matches are: 


geochemistry (38) 
biochemistry (38) 
geochronometry (32) 
geothermics (30) 
geophysical (26) 


The last three examples point out 
the main weakness of this method: 
letter order is not significant. To us, 
geochemistr is nothing like geother- 
mics, but the method is too simple to 
detect this. Other algorithms can 
check for transpositions, or altered 
letters, or dropped letters,2 but be- 
cause of combinatorial complexities, 
these can be slow. The strength of 
Bickel’s algorithm lies in its simplicity, 
which in practice means speed. It can 
be used as a first pass to select likely 
candidates for the slower routines. 


Limitations 

Bickel’s algorithm has some trouble 
with short words, especially if the 
letters are high-frequency ones. Such 
a word could match a great many 
other words—a major problem if a 


geochemical 
geochemistry 
geochronology 
geochronometry 
geodesy 
geographic 
geologic 
geological 
geomac 
geometry 
geomorphology 
geophysical 
geophysics 
geopressure 
geothermal 
geothermics 
biochemistry 


Table 3: Keywords taken from a 
reference list. 








given word list is long. In fact, any 
word composed of frequent letters 
behaves in this way, no matter what 
the length. The longer the list to be 
searched, the greater the problem. 
As an example, a search of the 
keyword list using meter gives: 


geochemistry (15) 
geothermics (15) 
geochronometry (15) 
biochemistry (15) 
geothermal (15) 
geometry (15) 


In a long word list, the search should 
be restricted—for example, by as- 
suming that the first letter is correct. 
Even this may not be enough, as with 
George: 


geomorphology (15) 
geochemistry (15) 
geochronology (15) 
geochronometry (15) 
geopressure (15) 
geographic (15) 
geothermal (15) 
geothermics (15) 
geometry (15) 


Here additional criteria, such as hav- 
ing the lengths of the words be 
“close,’’ could be profitably used to 
narrow down the search. 


Thoughts on Optimization 
In areal application of this algorithm, 
you would probably want to build it 
for speed, which will mean a bout 
with the assembler. But preplanning 
can help. If there are only a handful 
of words in the list to be searched, 
any savings in time will likely be too 
small to be noticed by the user. Also, 
you could save some time by con- 
structing the letter sets in advance so 
that speed wouldn't be as important. 
Fast code is most essential when 
there is a large list to search and in 
interacting with an impatient user. 
For a fast assembler routine, I 
would unfold all the loops, making 
the code bulky but avoiding all the 
overhead of incrementing and com- 
paring the counter. The masks and 
weights would be built in as immedi- 
ate data, again sacrificing space for 
speed. Order is not important here, 
so by putting the least common let- 
ters at the end, it would be possible to 
check for an empty set and return 
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That Doesn't Waste Your Time 


early from the function if there was 
nothing more to check. 

It is possible to save some space and 
a little speed by eliminating the two 
most common letters, e and t. The let- 
ter set could then be stored in three 
bytes, and two nearly inevitable com- 
parisons could be eliminated from 
the likeness calculation. 
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e Run other programs without stopping Epsilon—concurrently! 
e C Language support—fix errors while your compiler runs 

e Powerful extension language  e Great on-line help system 
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e 30 day money-back guarantee e Not copy protected 


Only $195 
Luqaru 


Software Ltd. 
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Comparison with the 
Soundex Algorithm 
The Soundex algorithm is a creaking 
ancient by computer standards, but 
because it is still widely used, it is 
worth comparing it with Bickel’s 
new algorithm. To review (or intro- 
duce) it, the Soundex algorithm con- 
structs a code by preserving the first 
letter of a name. From the rest, elimi- 
nate all vowels and the letters h and 
w along with all doubled letters 
(keeping one of them). The remain- 
ing letters (except the first) are re- 
placed with numbers. The key is the 
initial letter and the first three num- 
bers of the rest of the name, padded 
with Os if necessary.% 

The main advantage the Soundex 
algorithm has over Bickel’s is that the 
computation is done only once per 
word. The key is more like a hash 
function in that it is usually arbitrary 
and there is no good way to compare 
two values. Bickel’s algorithm re- 
quires a set of calculations at each 
comparison but does a good job of in- 
dicating the amount of similarity. 
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3-D IMAGES 


Listing One (Text begins on page 18.) 





Program skeleton for testing the contour map algorithm 


This program reads in a MacPaint document, unpacks 
it, and calls the contour analysis algorithms. 


Once the analysis is complete the program writes out a 
file called grid.dat that can be read by hidlinpix and 
displayed in 3D perspective with hidden lines removed. 


hidlinpix is a program published in "Programming 
Principles in Computer Graphics" by Leendert 
Ammeraal (John Wiley & Sons, 1986) 


Other notes: 


Data structure libraries are derived from Alan Holub's 
column in Doctor Dobb's Journal. These include the AVL 
tree and the queue. 


I modified the Lightspeed C stdio library so that the stdio 
console window occupies only the lower 1/3 of the screen. 

I then use the upper 2/3 for a windcw to display the source 
contour map and a second window to display the progress of the 
algorithm. 


William May 
303A Ridgefield Circle 
Clinton, MA 01510 


Jan 25, 1986 created 


#include <stdio.h> 
#include <wWindowMgr.h> 
#include “contour.h" 


TREE 


*root = OL; 


WindowPtr left wind; 
WindowPtr right wind; 


BitMap 
curve data 


main () 


p; 
curves [100]; /* array of curve data */ 


char c; 
Rect r; 
int width; 


/* force the LSC stdio window to open by doing a printf */ 
printf("“Program Starting\n\n"); 


/* suppress the LSC dialog window when the program ends */ 
Click _On(false) ; 


/* open some windows... */ 
init_windows() ; 


init_mem(); 


/* read in the MacPaint document, named "test" x / 
if (read_MP("\ptest", é&bmap)) { 

r.top = 0; 

r.bottom = VBITMAX; 

r.left = 0; 

r.right = HBITMAX; 

show _bmap(left wind, é&bmap, ér); 


find_all_ contours (); 
} 


make hidlin(); 


/* 
A “real“ program should return allocated memory to the 
system here, etc. I will just return and let the heap 


reinitialization take care of everything. 
*F 


/* make the input file for hidlinpix */ 


printf(“Program complete. <cr> to continue: "); 
c = getchar(); 


wwe ee ee LPL OS AOS AD SD SP SS SS OOD ae ESS Ean om eee ae ae ewes am a es ares ae arom ewes eee oe ens ose oe ae ee 


init_windows opens the two windows used for testing graphics 


algorithms. The console window is opened automatically 

by stdio when a printf is called. No windaw template resources 
are used. The two window records are kept in application global 
space 


init _windows () 


{ 


static WindowRecord left _wrec, right_wrec; 
int height, width; 
Rect r; 


height = 180; 
width = 144; 


r.top = 22; 
r-left = 20; 
r.bottom = r.top + height; 
r.right = r.left + width; 


left_wind = NewWindow(éleft wrec, &F, “\po",; true, altDBoxProc, 
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FrontWindow(), false, OL); 





r.left = 184; 
r.right = r.left + width; 


right_wind = NewWindow(é&right wrec, ér, "\p", true, altDBoxProc, 
FrontWindow(), false, OL); 


End Listing One 


e e 
Listing Two 
/* 
global.h 
contains the external references to global variables 
a/ 
extern TREE *root; /* root of AVL tree */ 
extern WindowPtr left wind; 


extern WindowPtr  right_wind; 


extern BitMap bmap; /* bitmap being 
used */ 
extern curve data curves[{100); /* array of curve data */ 


End Listing Tw 
Listing Three oe ere or 


/* 8 Bee ee ew wee Oe ewes OOOO OOO BOSCO Oe Oe eee Owe ww we we Oe OOO es Oe wee oe we we ee ew we 

* contour.h 

z 

* defines the leaf structure and does the usual includes 

h emammwmn wwe wo wen ewe we ww we we wen wow ew eww ee wow wow ew ww ewe ew ewww we eee wow www a/ 


#include <WindowMgr.h> 


typedef struct { 
union { 
long key; /* key ~ h,v concatenated */ 
Point p; 
} header; 
int curve; /* curve that this point is on */ 


} LEAF; 


#define HBITMAX 576 /* max pixels in horiz direction */ 
#define VBITMAX 720 /* max pixels in vert direction */ 


#include “tree.h" 


typedef struct curve data { 


Point p: /* starting point of curve */ 
int parent; /* parent (enclosing) curve */ 
int elevation; /* elevation of the curve */ 
int searched; /* has interior been 


searched? */ 


End Listing Three 


} curve data; 


Listing Four 


There is only one externally visible function: find_all_ contours 


Implements contour search and tracing algorithms 
Some sections are based on Pavlidis, “Algorithms for Graphics and 
Image Processing“ 


Quick description: the algorithm examines the interiors of known 
contours to find additional contours. 


It is started by treating the border of the image itself as a contour. 


The final outcome of this algorithm is a tree containing all points 

on contours in the image. The key for a leaf in the tree is the point 
coordinates. Each leaf also contains an index for the contour containing 
the point, and the elevation for the point. 


William May 


created Jan 31, 1987 

modified Apr 10, 1987 improve the trace logic to handle 
contours that are multiple pixels in 
thickness. 


ee we we ee re we wr ew oe we ow oe oe a oe er ew ow oe ee ee wee oe eee == at / 


édefine DEBUG 


#ifdef DEBUG 

define D(x) x 
#felse 

édefine Dix) 

#endif 


#include <QuickDraw.h> 
@include <MemoryMgr.h> 
#include <stdio.h> 
#include “getpixel.h”™ 
#include “contour.h" 
#include “global.h* 


/* two defines for our trace directions */ 
#define CLOCKWISE -1 
#define COUNTERCLOCKWISE 1 


/* the index of the image borders is BASE (the exterior contour) */ 
¢define BASE -1 


/* define the queue elements */ 
typedef struct { 

int h, v, chain; 
} q item; 
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(continued on next page) 


Read what they’re saying about this 
popular program for prototyping and 
demo-making: 


“A winner right out of the start- 
ing gate. After you use DEMO 
once, you’ll wonder how you got 
along without it.”’ 

—PC Magazine 


‘Everybody who writes soft- 
ware, either commercially or for 
in-house applications, should 
immediately order a copy. Period. 
No exceptions.” 

— Soft: letter 


Product of the Month 
—PC Tech Journal 


Thousands of developers and most 

of the largest and best known software 
companies are using this program. 
You can, too. Act now! 


NEN pint’ 
\yvO % 


The perfect companion to the Demo 
Program. The Tutorial helps you learn 
the ins and outs of its basic and ad- 
vanced features. Complete with a 96 
page manual containing step-by-step 
instructions, diskette, and function \ 
a 


at WY 
O 
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Use 800-number for orders only. 
Questions, special shipping, etc., call 617-332-2240. 


No Purchase Orders. Massachusetts residents add 5% 
sales tax. Outside of the U.S.A., add $15.00. 

Requires 256K IBM PC/Compatible, DOS 2.0 or later. 
Supports Monochrome, Color Graphics, and EGA 
Adapters (text mode only). The Tutorial requires the 
Demo Program. 





SOFTWARE 
GARDEN, INC. 


Dept. D 
P.O. Box 373, Newton Highlands, MA 02161 
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TRUE 


MULTITASKING 


With 
MultiDos Plus 
‘multitasking for the IBM-PC.’ 


Ideal for developing applications 
in process control, data acquisi- 
tion, communications, and other 
areas. Check these features which 
make MultiDos Plus an unbeat- 
able value. 










Run up to 32 programs concur- 
rently. 

Your software continues to run 
under DOS. No need to learn a 
new operating system. 

Use the compilers you already 
have. Supports software written in 
most languages. 

Operator commands to load/run 
programs, change priority, check 
program status, abort/suspend / 
resume programs. 

Programmatic interface via INT 15H 
for the following. 


Intertask message communica- 
tion. Send/receive/check mes- 
sage present on 64 message 
queues. 

Task control b 
semaphores. 
semaphores. 
Change priority-256 priority 
levels. 

Suspend task for specified 
interval. 

Spawn and terminate external 
and internal tasks. 
Disable/enable multitasking. 
and more! 

Independent foreground / back- 
ground displays. 

Access to DOS while applications 
are running. 




















means of 
et/release/check 










Hardware/Software Requirements 
IBM PC/XT/AT or true clone. Enough 
memory to hold MultiDos Pius (48 
KB) and all your application programs. 
Also may need 4 or 16 KB memory 
for ‘‘hidden screens’ for each active 
task. MS-DOS (or PC-DOS) 2.0 or 
later operating system. 


only: $24.95 OR 
$99.95 


with source code 











Outside USA add $5.00 shipping and handling. 
Visa and Mastercard orders only call 
toll-free: 1-800-872-4566, ext. 350., or 
send check or money order to: 


NANOSOFT 


13 Westfield Rd, Natick, MA 01760 
MA orders add 5% sales tax. 
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Listing Four (Listing continued, text begins on page 18.) 


static char "gp; 


static int 


static int 
static int 


atatic long point_count; 


/* pointer to the queue */ 
qmax = 0; /* max items in the queue */ 
current elevation = 0; /* current elevation of region */ 
next_curve = 0; /* number of next index in curve array */ 
/* count the points we have found */ 


find all_contours finds all the contours in a bitmap 


first the left side of the bitmap is entered into the queue to 
start off the search. then each time find contours returns 
(meaning no more contours at that level) the elevation is incremented 


for the next round of searches. 


int find_all_contours() 


{ 


static sta 





char ch; 

Point pt; 

GrafPtr old port; 
int draw nt(): 
int tar 
regiater int i; 
char *makequeue(); 


qp = makequeue(4000, sizeof(q item)); 


start_queue(); i 
find_contours (BASE); ve 
a 
while (next_point (éitem, épt)} { sd 
trace (pt, COUNTERCLOCKWISE, true); /* 
find_contours (item); bas 

) 
free(qp); /* 
set_elevations(); = 


printf("max used in queue is %d\n", qmax):; 
printf("number of curves found is %d\n", next curve); 


set up search for exterior of bitmap */ 


find the first level of contours */ 
parent = -1 */ 


while there is an unsearched curve */ 
set up queue for next search */ 

go get ‘em. item = parent */ 

all done, get rid of the queue */ 


set elevations in the array */ 


printf£(“number of points found is %ld\n", point_count); 


printf ("Curve search complete. <cr> to continue: "); 
ch = getchar(); 


GetPort(é0ld port); 
SetPort (right wind); 
EraseRect (4 (right_wind->portRect)); 


Diprintf (“Now traversing the tree. \n")); 
Ditraverse(root, draw _point)); 


SetPort (old port); 


start_queue puts the left edge of the bitmap into the 
queue to act as start for the bitmap search 


only the left edge needs to be put in because the other edges 


would be ignored anyway d 
rt_queue() 


register int i; 
q item q: 

q-h = 0; 
q.chain = 6; 


for (i = 0; 1 < VBITMAX; i++) { 
q.v=i; 
if (!enqueue(éq,qp)) 


/* all starting queve items are going south */ 


syserr(0, “Queue overflow in startup function\n"); 


set the next curve starting point if there is one, 
otherwise return 0; 


*iten; 
*pt; 


static int last_searched ~ -1; /* last array index used */ 


if (++last_searched < next_curve) { 
*item = last_searched; 
pt->h = curves(last_searched) .p.h; 
pt->v — curves[last_ searched] .p.v; 
return 1; 


return 0; 


set the elevations in the arra 
assume all contours are ascend 
and increment = 100 


g 


register curve data °c = curves; 
register int parent, i; 


for (i = 0; i < next _curve; i++, p++) { 
if ((parent = curves(i].parent) = BASE) 
curves({ij).elevation = 100; 
else 


SD DD OSE BS BS BS BB OS OS OS OES BS OES CB OS SS SBS SS OS SS SS SSS SS SBS SES THB MSBSSSASOe at / 
set_elevations() 


curves([i).elevation = curves(parent}].elevation + 100; 


find contours searches fcr all contours within a closed contour, 


based on the queue elements 
if any are found « non-zero value is returned 


static int find contours (parent) 


int parent; 


{ 


Pelt acted oh, 


/* index ef enclosing curve */ 


sil ttc 
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q_ item item, *show_next(); 
register int c; 

Point p; 

int B, next_chain; 

Polnt first, last; 


while (dequeue (éiten, > 4 
c = item.chain; 


1f (c — 8) { 
dequeuve(éites, gp): 
c = item.chain: 


Lf ((c >= 5 66 c <= 7) I] 
(c = 0 6@ ((next_ chain = (*show_next(qp)).chain) >= 5) &é 
(next_chain <= 7))) ( 
p-h = item.h + 1; 
p.v = item.v; 


D(first = p); 
do { 
search _x(éB, ép); 
if (B= 1) { 
Dilast = p): 
D(show line(first, last)): 
/* 
if trace found a new contour then break off 
the scan. If the point is a new point ona 
known contour, then continue. 
8 
if (trace(p, CLOCKWISE, false)) { 
/* and add curve to array */ 
curves(next_curve].p = p; 
curves(next_ curve].parent = parent; 
curves(next_curve).elevation = 0; 
curves (next_curve) .searched = false; 
next curvet++; 
break; 
} else 
p-ht+; /* bump up to next point */ 
else if (B >= 2) { 
Dilast = p):; 
D(show line(first, last)); 
break; 
} 
} while (1); 


ee ee eee me ee ee me ee ee ee He ee ee en ee ee owe ee 


scan pixels in the x direction at point p 

if the bitmap shows a pixel return 1 

if the bitmap shows a pixel and the pixel is in the tree 
(i.e. the point has been scanned before) return 2 

update the starting point 


static search_x(b, p) 


int *b; 
Point *p; 


{ 


long dcmp(); 
/*® 


the union makes it easy to use the point coordinates 
as the key in the tree 
a/ 


union { 
Point pt; 
lang key; 
} q. 
q-pt = *p 


if (*b = getpixel(q.pt.h, q.pt.v, ébmap)) { 

if (find(root, q.key, dcemp)) (*b)++; 

return; /* don't increment h on a hit */ 
} 


if (++p->h >= HBITMAX) { 
tb = 2; /* when we hit the right edge,indicate already 


found */ 
return; 


trace traces a contour beginning at the specified point 
at each found point the x,y ccordinates and chain code are 
stored both in the queue and the tree. 


two result codes are returned: 

0 indicates that the starting point represented a new point on an 
existing (known) contour. trace was aborted. 

1 indicates a new contour was successfully traced 


LLL SE SS EE OED Se SS SS OS OP SE SOS SP SEED SS SPSS SEED GD GSE OEE ONS OD ee ee eee ees af 


static int trace(p, dir, only) 
/* p 


Point p; 
int dir; 


s the atarting point */ 
/* dir is the trace direction */ 


Boolean qonly; /* trace and put in queue only, 
{ 





do not check for dupes in tree */ 


Point c, t; /* carrent pe and transformed point for testing */ 
int s; /* search direction * 
Boolean found, ae een th 
int count, used, chain; 
q item item: 
LEAF *lp, *lp2: 
long icap(), demp(): 
GrafPtr old port; 
union temp 
long key: 
Point p; 
} temp; 


if (dir — COUNTERCLOCKWISE) 
s= 6; 

else 
a= 2; 


o> Be (continued on next page) 
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Dbasex 


programming tools 


*Clioper, FoxBASE+, 
dBASE, QuickSilver 


The Ul Programmer 


Ul is the first professional code generator; we 
wrote UI for programmers who want to automate 
their work but cannot use code that is ‘almost’ 
good enough. If your user interfaces include 
bounce-bar menus, pop-up help screens and 
the other features of today’s best programs, you 
will gain an order of magnitude in productivity 
with UI. 


Ul is a second generation, programmable pro- 
duct — so your code comes out your way. 
Application specific edits, for instance, can be 
placed in the UI ‘template’ which controls the 
generation. Edit the screen appearance until it 
‘looks and feels’ perfect. Everytime you generate 
code, your special logic is preserved. 


Speaking of editing the screen, Ul includes a 
powerful, 3-D screen editor, so you can draw 
pop-up help boxes over your pull-down menus, 
over your application. 


The Documentor 


To run Doc, you just tell it the name of the main- 
line routine and make sure your printer has a lot 
of paper! (Sure, you can have the output go to 
the screen or a file, too.) 


You can tailor your documentation to include any 
or all of: a table of contents, system tree diagram 
(main line is the root), hierarchy (box diagram) 
charts for each module, action diagrams (modern 
style flow charts) for each PRG or procedure, 
DBF listings (structure, indexes, more), where 
used/updated listings for fields and all variables 
— by module and by line number within each 
module. 


Our written money-back satisfaction guarantee 
set a new standard when we began it in 1985. 
(Return rate to date: 0.6% and dropping!) No 
copy protection, royalties or other nonsense. 


Suggested retail: $295 each, (800) support 
included. At your dealer today. Call us for a very 
special offer on our latest release! (800) 233- 
3569 or, in NY, (212) 406-7026. 


WallSott 


The Computer Aided Software 


Engineering Corporation 
233 Broadway, Suite 869, New York, NY 10279 
CIRCLE 90 ON READER SERVICE CARD 
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A Reconfigurable 
Programmer’s Editor 
With Source Code 


ME is a high quality programmer’s text 
editor written specifically for the IBM 
PC. It contains features only found in 
the more expensive programmer’s text 
editors.These features include: 


= Multiple Windows | 
= Column cut and paste 
= Line marking for source code 
= Regular Expressions 
aw C-like Macro Language 
= Reconfigurable Keyboard 
= Capture your DOS session 
=» Run your compiler and examine 
errors 
= Comes with useful precompiled 
macros 
a UNIX-like CTAGS 
s 43-line mode with EGA 

































This is the ONLY editor with the power 
of the higher priced editors which 
comes with complete source code! 






New commands and features may be 
added to the editor by writing programs 
in its macro language. The language 
resembles C, and comes with a rich set 
of primitives for handling strings and 
changing the editor environment, plus 
most of the flow-of-control constructs 
that come in C (for, while, if, break, con- 
tinue). 
















The code is written in standard C, with 
several key library routines written in 
assembler for speed. The source code 
option is perfect for OEMs and VARs 
who want to add editing or word proc- 
essing capabilities to their applications. 
Price for editor and on-line docu- 
mentation ---- $39.95 

Price for editor with complete source 
code -- $94.95 

(Please add $2 for shipping & han- 
dling, $6 overseas) 

Special offer -- New York Word word 
processor -- $39.95 -- Multi-window- 
ing, mail merge, hyphenation, math, 
regular expressions, TOC and index 
generators 


MAGMA SYSTEMS 


138-23 Hoover Ave. Jamaica,NY 
11435 (201) 792 - 3954 
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Listing Four (Listing continued, text begins on page 18.) 


if (q_only) { 


/* has this curve interior been searched before? */ 


temp.p.h = 
temp.p.v = 


c.h3 
c.Vv3 


lp = find(root, temp.key, dcap); 


if (curves{lp->curve).searched = true) { 
printf(“Curve %d already searched\n", lp->curve); 


return Q; 
else 

curves ({lp->curve] .searched = true; 
item.h = c.h; /* add data to queue */ 


item.v = c.v; 


item.chain 


= 8; /* mark beginning of new contour */ 


if (lenqueue (éitem,qp) ) 


syserr(0, “Queue overflow in trace\n"); 


GetPort(é0ld port); 
SetPort (right_wind); 
PenPat (white) ; 
SetPort(old_ port); 


} 
else { 
if (!Qlp = talloc(sizeof (LEAF) ))) 
syserr(MemErr, “Insufficient memory for AVL tree"); 
else { 
lp->header.p.h = c.h; 
lp->header.p.v = C.Vi 
lp->curve = next curve; 
if (lp2 = insert(éroot, lp, icmp)) { 
/* tfree(lp); not implemented in getmem! */ 
return 0; /* starting point already in the tree !! */ 
) 
else { /* if not in the tree then enqueue the new point */ 
point _countt+; 
item.h = c.h; /* add data to queue */ 
item.v = c.v; 
item.chain = 8; /* mark beginning of new contour */ 
1f (enqueue (éitem, gp) ) 
syserr(0, “Queue overflow in trace\n"); 
GetPort(éo0ld port); 
SetPort (right wind); 
PenPat (black) ; 
SetPort(old port); 
} 
) 
) 
do { 
found = false; 
count = 0; 
while (!found &6&# (count < 3)) { 
count++; 
if {test_pixel(c, add_chain(s, -1 * dir))) { 
set _pixel(éc, (chain ~ add chain(s, -1 * dir))); 
s = add chain(s, -2 * dir); 
found = true: 
} 
else { 
if (test_pixelic, s)) { 
set _pixel(éc, (chain = s)); 
found = true; 
} 
else { 
if (test_pixel(c, add_chain(s, 1 * dir))) { 
set_pixel(éc, (chain = add _chain(s, 1 * dir))); 
found = true; 
else 
a = add chain(s, 2 * dir); 
} 
’ } 
D(show_point (c)); 
4f (qonly) { 
item.h = c.h; /* add data to queue */ 
item.v = c.v: 
item.chain = chain; 
if (l!enqueue (item, gp) ) 
syserr(0, “Queue overflow in trace\n"); 
} 
else { 
if (!(ip = talloc(sizeof (LEAF) ))) 
syserr(NemErr, “Insufficient mamory for AVL tree“); 
else { 
lp->header.p.h = c.h; 
lp->header.p.v = c.v; 
ip->curve = next_curve; 
if (lp2 = insert(éroot, lp, icmp)) { 
/* tfree(lp); not implemented in getmen! */ 
if ((c.h —= p.h) 66 (c.v — p.v)) 
return 1; /* we have returned to the start */ 
else 
return 0; 
) 
else { /* if not in the tree then enqueve point */ 
point_countt++; 
item.h = c.h; /* add data to queve */ 
item.v = c.v3 
item.chain ~ chain; 
if (!enqueue (éitem, gp) } 
syserr(0, “Queue overflow in trace\n"); 
} 
} 
if ((used = sp used(qp)) > qeax) qmax = used; 


} while ((c.h l= p.h) |] (c.v l= p.v))z 


GetPort (told rt); 
SetPort (right_wind): 
PenPat (black); 
SetPort(old port); 


return 1; 





(continued on page 72) 
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HOW TO WRITEAWINDOWS 
APPLICATION IN TEN MINU'TES. 


: UO Eas owe ba bi ie cans 
=] “Tice hI Tea 
hile fdit. Dorit! Browsef Inspect! Show Reon? 

lenplates i 
“San co neu(Serabble, ThePert, ail, 
“8 Serabble Uandau” 8058 $8 388 388)) 
show{ San, 7) 


—y—-4 
t 


doe c> seu(Seribble, ThePart, nail, 
“tnather Scribble inde", 

R(S8 SH FRR SHED) 

shauddee, 1} 

é3 Secrabble> 


EEC creer ert 
a1 


fdit Optiens 
Strean 
ralyser 
Acturfinalyzer 
Uradas: 


) Fapuplindav 
a3 


3 Ji HQOY 





Oo 3 
fe Imataaglize mouse dragging. * 
Dek feginBrag(self, uP, point} 
fall SetLapture(hUnd) ; 
i draghfi ss getLontext (self); 


[K 
| 
/ 
| 
| 





navetatpoint, dragBbl); 


Inspect! 


Seri e 
faoliiindey 
Brouser 
Inspecter 
Text Vindouw 
Fdititlindaw 
ilar kEdit 
Gromer. os = 7 
fe Create a new Papup vindos. */ 
lef neu{self, par, nenuNane, whane, rect | thelind, sRect) 





rf not{sRect := rect) 
then sRect z= rect(??8, 88, 478+ x(screenSize()}/4, 
rintscreenSize().y, 245 ¢ y(screenSize(})74)); 
endif 5 
selind t- neu(self -Behavior); 


create(thetind, par, uMane, sRect, US POPUPUTNDOY) ; 
Sptlindowlord(handle(thelind), 8, hash(thetind)); 
z> §tatie(neu(Struct, 32)); 
part ethelind) ; 
“thellad 





Actor™ is a new language that combines Microsoft® Windows with 
object-oriented programming. This means you can produce mouse and win- 
dow applications very quickly. 

For example, we created a simple “paint” program, and used it to draw 
the Actor logo you see on the screen. The whole program only took ten lines 
and ten minutes. Part of it is in the middle window on the left. 

Above, you see the commands that initialized the paint window and 
made it appear on the screen. Below, some code that’s built into Actor, 
specifying window behavior Through a process known as “inheritance, it’s 
called into play automatically. 

Try programming in this new way, and you'll never go back. 


And out about Actor. 
Call The Whitewater Group, (812) 491-2370. 


MICROSO 


Technology Innovation Center Ge WINDOWS 
906 University Place, Evanston, IL 60201 
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Listing Four 
(Listing continued, text begins on page 18.) 


static Boolean test pixel (p,s) 
Point p; 
int s; 

{ 


/* direction to test */ 


set pixel(ép, s); 
return (getpixel(p.h, p.v, é&bmap)); 


set point p to point + chain code s 


SS 0 OF OS SE OS SS HS TO oS ae aD aD Ow Ae eDes Een eS we we ne en eww wwe mw ew nn tt / 


static set_pixel(p, s) 


Point *p; 
int 3; 
{ 
switch (s) { 
case 0: 
(*p) .h++; 
break; 
case 1: 
(*p) .ht+; 
(*p) .v--3 
break; 
case 2: 
(*p) .v-=3 
break; 
case 3: 
(*p) .h-=3 
(*p) .v--; 
break; 
case 4: 
(*p) .h-—=3 
break; 
case 5: 
(*p) .h-=; 
(*p) .vtt? 
break; 
case 6: 
(*p) .v+ts 
break; 
case 7; 
(*p) .ntts 
{*p) .vt+s 
break; 


} 


[ Pewee ee mene nnn ene. coeeweseneeson= anecanewwaseorwesneanascesenas 


add c to chain code s 


mene eve sieraninenesanioan wen ene nn nnn en enn nn ee - t / 


static int add chain(s,c) 
register int s,c; 





register int i; 


if ((1 = 8 + c) d= 8) 
return (i - 8); 


it (i < 0) 
return (i + 8); 


else { 


else 
return i; 


} 
¢ifdef DEBUG 


The code below is used to display the progress of the contour 
analysis in a Macintosh window. It is obviously totally 

nonportable. Fixed point arithmetic is used for scaling the MacPaint 
size document to a much smaller window. Fixed point is much faster 
floating point, and is often used for two and three dimensional 
graphics on the Mac. This code is for debugging purposes. 


/* ratio is used to scale down picture size by 1/4 */ 
static Fixed ratio = 0x00004000; 


convert a 16 bit integer to fixed point 


oe a on nn ne oo eo ee eee eee w wenn ne enn t/ 


atatic Fixed int_to fix(i) 


int i; 
{ 
asm { 
move.w 4,40 3 get the number 
ext.l do 3 clear top of do 
swap do 3 make it a fixed point nusber, 
all done 
} 
} 
/ 0 ee ewe oe we re wr eee oe oe Oe oe re ee re ewe Orem ee Oe ee eee oe ne eee ae ee ew es 
cqnvert a Fixed point number to 16 bit integer a 
static int fix to_int(i) 
Fixed i; 
{ 
asa { 
move.l] i, do 3 get ths number 
add.l #0xA000,d0; add .S to number, for rounding 
swap a0 3 make the int, ignore upper word of do 


draw the point from a LEAF, scaled down to the actual window size 
® 


static draw point (p) 

LEAF *p; 

{ 
GrafPtr oldPort; 
Point q: 
Rect r; 


q ~ p->header.p; 
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GetPort (éo0ldPort); 
SetPort (right_wind); 


r.top = fix_to_int(FixMul(int_to fix(q.v), ratio)); 
r.left = tix_to int(Fixmul(int_to fix(g.h), ratio)); 
r.right = r.left + 1; 


xr.bottom = r.top + 1; 


FrameRect (ér); 
SetPort (oldPort); 


static show _point (p) 
Point p; 
{ 


GrafPtr oldPort; 
Rect r; 


Get Port (é0ldPort):; 
SetPort (right _wind); 


r.top =~ fix_to_int(FixMul(int to fix(p.v), ratio)); 
r.lert = fix_to_int(FixMul(int_to fix(p.h), ratio)); 
r.right = r.left + 1; 

r.bottom = r.top + 1; 


FrameRect (ir); 
SetPort(oldPort); 


static show _line(first, last) 
Point first, last; 
{ 

GrafPtr oldPort; 


GetPort (é0ldPort); 
SetPort (right wind); 


first.v = fix_to int (FixMul(int to fix(first.v), ratio)); 
first.h = f£ix_to_int(FixMul(int to fix(first.h), ratio)); 


MoveTo(firsat.h, first.v); 


last.v = fix to int (FixMul(int to fix(last.v), ratio)); 
last.h = fix_to_int (Fixmul (int_to_fix(last.h), ratio)); 


LinesTo{last.h, last.v)}; 


SetPort (oldPort); 


fendif 


End Listing Four 


Listing Five 


/* 

stack.h 

William May 

2/20/87 created 
a/ 


typedef int *STACK; 


/* function prototypes */ 


extern int empty ( STACK * ); 

/* is anything on the stack? */ 
extern int pop ( STACK * ); 
extern int push ( int, STACK *); 


extern STACK * 
extern void 
extern int 


init _stack( int ); 
del stack ( STACK ** ); /* remove stack */ 
top_of stack( STACK * ); 
/* returns top of stack */ 


End Listing Five 


implements a simple stack of integers 
William May 

303A Ridgefield Circle 

Clinton, MA 01510 


2/20/87 created 


#ifdef DEBUG 
#include <stdio.h> 
#endif 


#include <storage.h> 
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typedef struct STACK { 


int max; /* max items in stack */ 
int top; /* current items in stack */ 
int items[]; /* the data */ 


} STACK; 

/* some error codes */ 
#define FULL -2 
#define EMPTY -1 
#define NOERR 0 
#ifdef DEBUG 


STACK *mystack; 


main () 
{ 
STACK *init_stack(); 
int num, c; 
printf ("Stack program begun\n"); 
if (! (mystack = init _stack(5))) { 
fprintf(stderr, “Insufficient memory to create stack\n") ; 
ExitToShell(); 
} 
while( 1) { 
num = c = -1; 
printf (“top = %d\n", mystack->top); 
printf ("max = &4d\n", mystack->max); 
printf(“top item = td\n", top_of stack (mystack)); 
printf ("\n<p(op)/s (push) /q(uit)> -> "); 
while( c != 'p' 6&6 c != 's' &6& c != 'q’ ) 
c = getchar(); 
if({c=— ‘'s' ) 
{ 
printf("\nenter decimal number -> "); 
scanf("%sd", énum ); 
printf ("\npush(%d) returned %d\n", 
; num, push(num, mystack)); 
else if( c == 'p' ) 
{ 
printf( “\npop returned: %d\n", pop(mystack) ); 
} 
else 
break; 
} 
del_stack(émystack); 
printf("\nStack program complete\n") ; 
} 
#endif 
/* Ss doa bc ede ale ees ee eR eaes Sieh eee ear eae eRe haere mS ET 


create the stack 
NULL returned if insufficient memory 


STACK *init_stack ( items ) 
int items; 
{ 

STACK * p; 


if (p = (STACK *)calloc ((sizeof (int) * items + sizeof (STACK)),1)) { 
p->max = items; 
p->top = EMPTY; 

} 


return (p); 


/* a ed ed etcetera aie ai as ened es a mn aisle eee mes en ee SO ay SS TS NS ae 
delete the stack 
ies te ges ed an eer irae ean aaa alee nes me ee im mateo ae aeinnl rea Aen me ean een re SS SSE SS EST EE «/ 
void del stack ( stackptr ) 
STACK **stackptr; 
{ 
free(*stackptr); 
*stackptr = OL; 
} 
citar res hr LA EO OA POT LER LO RT | 
is the stack empty? / 
cael a ahead RAE EC A ae eA ETS SEINE LS x 
int empty ( stack ) 
STACK *stack; 
{ 
return ((stack->top =— EMPTY) 2? 1 : 0); 
} 
/* yl eS mae ene a aa ee ae ee ee ee ee 
return the top element of the stack and decrement 
the stack pointer F 
hn a aL ecg ee msec pr ene in ee ea NE AE ELE LE ee x 


int pop ( stack ) 
STACK *stack; 
{ 
if (empty (stack) ) 
return EMPTY; 
else { 
return (stack->items[stack->top-~]); 
} 
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(continued on next page.) 


goodbye 
dBase! 






dBASE Programmers 


You need it! 
CR You can handle it! 
(7 dB2c is here now! 


dB2c Offers: 

¢ Version 2.0 complete with 
Translator and File 
Handlers. 

¢ Extensive implementation 
of dBASE Ill+ with over 200 
functions and commands in 
C source code. 

¢ Contains our own File 
Handlers plus interfaces for 
Lattice's dBC and Faircom's 
c-tree. 

¢ Supports screen I/O with 
ANSI.SYS or fast assembler 
routines. 

¢ Support for Microsoft, 
Lattice and Turbo C 
cornpilers. 

¢ Tutor features of translation \ 
combined with familiar i 
syntax of the library eases 
the transition to 'C’. 

¢ One version supports MS- 
DOS, Xenix, Unix, OS-9 \ 
and Concurrent DOS. 


ae 


are you 
ready? 





Toolkit $299 





Call or Write: 
SOFTWARE 


DAVID J. CONNECTION, INC. 
“MARSH POB 712, Ely, MN 55731 


(218) 365-5097 
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Listing Six (Listing continued, text begins on page 18.) 


|B ea cc mann ce care pertains ei ye a Sen SA Hee ty Se eee Nn en ae ee ia deems Naeem ancnenian emmnineisesi meee de 
push an integer onto the stack and increment the stack eats 
int push (n, stack) 
int ny 
STACK *stack; 
{ 
if (++stack->top < stack->max) { 
stack->items[stack->top] = n; 
return NOERR; 
) 
else { 
--stack->top; 
return FULL; 
} 
} 
f Bee nn a ee + ee ee ee ee ee ee eee 
look at the top of the stack without changing the 
stack pointer = 


int top of stack( stack ) 
STACK *stack; 
{ 


} 


return (stack->items[stack->top]); 


Listing Seven 


/* 
make hidlin.h 
header file for make hidlin 
William May 
Created: 3/21/87 
“/ 
#define MAPWIDTH 576 
#define MAPHEIGHT 720 
#define INTERVAL 24 /* interval, in pixels, between grid lines */ 


#define VMAX 31 


/* bitmap height/interval + 1 */ 
#define HMAX 25 


/* bitmap width/interval + 1 */ 


Listing Eight 
make_hidlin.c 


Creates a grid of elevations and then 
input file for the 3D hidden line algorithm (hidlinpix) 


The input file creation process is fully explained in Ammeraal's 
book "Programming Frinciple in Computer Graphics" 


William May 
303A Ridgefield Cirlce 
Clinton, MA 01510 


created: 3/20/87 


tec pen sis Wl tc certo ll i aro le i es hes eae tsk ta mei ess cabanas ts lacie bd */ 
#include <stdio.h> 
#include “make hidlin.h" 
#include “contour.h" 
#define SCALE 100.0 
int grid[HMAX+1) [VMAX+1]; 
FILE *fp; 
fn ca test als a el oe gee ne sian eck nin Bers cepa ii ames elven es tne bs es ete es abthcwp abt lioness rds 
Coordinate creating an input file for hidlinpix 
ee hc ag ers i cn a a i eee iss sb inj ase gv i ho onto snares apres ccc ea Gs x / 
make hidlin() 
{ 
printf (“Beginning make_hidlin\n"); 
init_grid(); 
make grid(); 
fp = fopen("grid.dat", “w"); 
/* convert grid to hidlin input format */ 
conv_hidlin(); 
fclose(fp); 
} 
J 0 wisi thedamitampeicitpnaiite el cia R AS i es te esa ai ene tal sts eas ot tgp otro tear 
0 the grid 
this may be unnecessary for a global, but doesn't hurt 
It is however, necessary if the contour analysis is 
done repeatedly without quitting the program 
ee ae aa a ee ae Gi tee ae SE Sap Tene Sr ER age oer SINEE eps as ct ded asleep ei Saba ef ag in Sliven pes oes agentes aie x 
init _grid() é 
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End Listing Six 


End Listing Seven 
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Make $500/hr. 


Now develop DBMS applications 10 times faster for 
only $199 with MAGIC PC — or your money back! 


Bs 


Database programmers, why waste your 
time hacking out code? 

Imagine how much faster and more profit- 
able you'd be if you could whip up power- 
ful database applications without the 
time-consuming coding pains... 
Introducing Magic PC from Aker, your pro- 
fessional dream come true. It’s not 
another line-by-line syntax treadmill like 
any DBMS or 4GL. 

Finally you can program as quickly as you 
design, while you delegate all the mun- 
dane and redundant coding tasks to 
Magic PC. 


Program 10 times faster 


Develop e ee ee 
relational 7 ger Ey Epes ona 
database 
applications 
10 times fas- |}| 3): ' 
terusinga | = 
visual 33] a eh 
design- 
driven inter- 
face. Instead of writing mountains of “how 
to” procedural code, you quickly place your 
program design specs in Execution Tables 
and Magic PC's engine executes them auto- 
matically. Don't lose any more time editing 
and debugging programs by hand. 


Incredible Zoom power 

Magic PC's | 
pheno- b 
menal 




































Key>| 1 


Uwe DLODe 














ee oar 


Zoom 
power mag- 
ically co- 
executes 
related 
programs 
through nested Zoom windows smoothly 
with auto data scrolling in all directions. 
While Zooming, query and transfer data 
across windows or even Zoom deeper. 


No more maintenance! 


Change your programs on the fly without 
any manual maintenance responsibility. 
Magic PC automatically updates your 
changes online since all the data describing 
your design (data dictionary, programs and 
menus) make up a single file, self- 
maintaining Integrated Library. 


Magic PC does it all 


Design your entire database application 
with only one comprehensive develop- 
ment system. Generate both online 
programs (screens, windows, 
menus), as well as batch pro- 


grams (reports, updates, QO) 
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import/export, etc.) with full color and gra- 
phics. You no longer fall between the cracks 
dealing with separate and inconsistent 
programming utilities. 

Free LAN features 
Develop multi-user applications for 
local area networks with Magic PC's 
automatic support for file and 
record locking security. 

Quick prototyping 
Prototype a complete working application 
in just hours and get immediate customer 
feedback to finalize the design. It’s a true 
time-saver. 

Stand-alone runtime 
Distribute your applications and protect 
your design with a low cost runtime engine. 
it has the friendliest end-user visual inter- 
face you've ever seen with built-in, menu- 
driven and syntax-free data retrieval power. 


Jeff Duntemann, PC Tech Journal: 


“Magic PC is probably the best integrated 
database application generator that we 
have seen...very smooth system, and 
smoothness comes at a premium these 
days.” Also recommended by PC Magazine, 
PC World, PC Week, Computer Language, 
Data Based Advisor and many more around 


the world. 
Try it for $19” 


lf you develop database applications for a 
living, you can’t afford not to try Magic PC for 
yourself right now. For $19.95 you'll get the 
Magic PC Tutorial software and documenta- 
tion for hands-on evaluation, complete with 
a step-by-step guide to develop an Order 
Entry sample application in just a few 
hours. 


Magic PC 369k $199 


No kidding! For a limited time only, save 
almost $500 off the $695 list price, and get 
the complete unprotected Magic PC soft- 
ware for only $199 at our special introduc- 
tory non-resale price. 


Money back guarantee 


Even at $199 you can’t go wrong with our no- 
risk guarantee: keep it only if it makes 

magic for you, or we'll buy it back 
within 30 days less $19.95 
restocking fee. 





System Requirements: 
IBM PC, XT, AT, PS/2 
and 100% compatible, 
PC-DOS 2.0 or later, 
512K, hard disk. All 
trademarks 
acknowledged. 


MetaWINDOW 





Listing Eight (Listing continued, text begins on page 18. ) 


{ 
register int h,v: 


for (h = 0; h <= HMAX; htt) 
for (v=0; v <= VMAX; vtt) 
oe grid{h}{v)] = 0; 


‘Product of the Month } 


" : /* Ee ew cr eo ma ao Sa se wre elo es sib ib os oes cay co to cab ns en ain any tenses Sem civ wv ered wie Ger ip wh mvs Ub Gen es Menem esr ww xcs ewcdin' ew woes em ew wb en ed 
we leeHnGIogieg! ae Convert the grid to a hidlinpix input file 
force for fast PC graphics. This function is based on code from Ammeraal's book for 
doing 3D projections of mathematical functions - 
{ 
SAG ds: 4p Kz Te 
double f(); 


fprintf(fp, "lf %1f %1f\n", (double) HMAX / 2.0, (double)VMAX / 2.0, 0.0); 


printf("Printing the point coordinates\n"); 


for (i = 0; i <= HMAX; i++) { 

for (j = 0; 4 <= VMAX; j++) { 

Pe eee fprintf(fp, “Sd Slf Sl %1£\n", 4* (HMAX+1)+i+1, 
(double)i, (double)j, £(1,4)); 





eS MetaWINDOW provides an expand- fprintf(fp, “Faces:\n"); 
| ed set of graphic drawing functions, 

plus the added yactionality B00: /* next two lines switched */ 

performance required for designing for (i = 0; i < HMAX;: i++) { 

sa : : * Os < zs jtt 

multi-window desktop applications. re ee aan 

l = K+HMAX+1; 
; fprintf(fp, “td td td#\n", k, -(1+1), k+l); 

¢ auto-cursor tracking : fprintf(fp, “%d %d Sd#\n", k+l, 1+1, -k); 


fprintf(fp, “%d %d S$d#\n", k, -(1+1), 1); 
fprintf(fp, “"&d %d td#\n", 1, 1+1, -k); 


printf("printing the faces\n"); 


¢ pull-down menus 


* pop-up windows 1 } 


1+ comprehensive ¢ er [Ree en eT Nn ne ee eee a te et een ce 


‘ ; note reversing the h coordinates 
graphic functions somewhere the grid is being reversed, so I unreverse it here. 


e i 10Pont 12 Point double f(h,v) 
multiple fonts Bold = /rulic int h, Vv; 


{ 
} 


. return ((double) (grid[HMAX - h][v]) / SCALE); 


¢ Display multiple bitmap or 


End Listing Eight 
"filled-outline" fonts. 


Face fonts for bold, italic, under- Listing Nine 

line or strike-out stylings. 

Full "RasterOp" transfer : ho eae ser Ra eee tee ee 
functions for writing, erasing, converts graph data into a grid that can be interpreted 
rubberbanding or dragging: by hidlinpix 

lines, text, icons, bit images William May 

and complex objects. Biistca ae niet ee 

Create pop-up menus, 

windows and icons. ee ors 


* Supports IBM's new PS/2 VGA 
and MCGA graphics. 


#define DEBUG 
#ifdef DEBUG 
#define P(x) x 
#else 

#define P(x) 
#endif 


#include <stdio.h> 
#include “stack.h" 
#include "make hidlin.h" 
#include "contour. hn" 
#include "“global.h" 


extern int stack error; 
extern int grid [HMAX] [VMAX]; 


static STACK *stack; 


/ Fee err A ee a ea a se ei i iret Sa inten gees corn eee ibaa cad 
move vertically 
assigning elevations to each grid point 
wr a a ee a a a ago es wy oh a nese ke i ew re es ewe ek / 


make grid() 
{ 


register int h; 


stack = init _stack(2000); /* should be plenty! */ 


for (h = 1; h < (HMAX-1); h++) { 
traverse vert(h); 
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Traverse a vertical grid line, determining elevations along the way 
This is mostly simple: i.e. keep track of the elevation of the 
contour line crossed last. 

The main complications are tangents (in which case we want to ignore 
the contour line) and inflection points (in which case we don't 
ignore the contour line). 


traverse vert (h) 
register int h; 
{ 
register int ver, hor; 
register int vmax = (VMAX - 1) * INTERVAL; 


hor = h * INTERVAL; 


push(0, stack); /* push 0 (elev of border) onto the stack */ 
P (show _line(hor,1,hor,vmax) }; 


for (ver = 1; ver < vmax; vert+t+) { 

/* traverse a vertical grid line */ 

/* on a grid intersection set array to value on the stack */ 

if (! (ver % INTERVAL)) { 
P(show_point (hor-3,ver)); 
P(show_ point (hort3,ver)); 
set_elevation(h, (ver / INTERVAL)); 

} 


/* are we crossing a contour? are we tangent to it? */ 
if {getpixel(hor, ver, ébmap)) { 
if (is_crossing(hor, ver) || start_inflection(hor, ver)) 
ver += check_hit(hor,ver); 


/* ee we we ee a ee oe oe a ne nn 
set grid[h] (v] to the value of top of stack 
2 pnoc ae pecan etn ce sSeeeS Kaen ewes Sew eRe eee SSR eSee SSS eHet eames «/ 
static set_elevation(h, v) 
register int h, v; /* note these are grid coordinates !! */ 
grid[(h]) [v] = top _of_ stack (stack); 
} 
[ Bann nn nn nnn nn 3a 5 nnn nnn nnn sn rn rn nn 
a pixel was hit, get the curve index from tree 
get curve elevation from curve array 
if curve elevation = elevation on stack 
pop stack 
else 
push new elevation 
end 
return the number of pixels to skip-1 (i.e. 
return 0 if wskip 1, etc.) 
ee eet mnie cern ae Seen meme ea tn Re eS SSS eames emma */ 
static short check_hit(h, v) 
register int h, v; /* note these are pixel coordinates !! */ 
{ 
short cnt = 1; /* number of pixels */ 
short ver; 
union temp { 
long key; 
Point p; 
} temp; 
LEAF *lp; 
long demp(); 
int elev; 
/* traverse all pixels, if more than one */ 
for (ver = v+l; getpixel(h, ver++, &bmap); cnt++) 
temp.p.h = h; 
temp.p.v = Vv; 
lp = find(root, temp.key, dcmp); 
elev = curves [lp->curve] .elevation; 
if (elev == top of stack(stack)) 
pop(stack); 
else 
push(elev, stack); 
return (cnt-1); 
} 
[mm a eS SO SS ES OS 
is crossing: tests a point on a contour to figure out if 
we are crossing the contour or tangent to the contour. If we are 
tangent to it we don't want to bump the elevation yet. 
The test is performed by examining the six pixels to the side: 
1 2 
2h,v 5 
3 6 
Crossings are: 
two or more hits in range 1-6 
1+ in 1-3 and 1+ in 4-6 
return false for a tangent, true for a crossing. 
ee er ere eae mene wen mem ee meme e Soe me me ene ee ee een nn wn re eee nena = x/ 


static int is_crossing(h, v) 
int h, v; 
{ 


register int h_test, v_test, i; 
h test = h - 1; /* test the 1-3 */ 


(continued on next page) 
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3 D GRAPHICS ANIMATION 


Now you can have a 3 D animating 
graphics system for your EGA or CGA 
equipped PC or PC compatible. 

(DOS 2.1 or higher.) 


1 Includes all source code (C and ASM) 


2 Hidden surface removal, translation, 
scaling and rotation 

























































3 Scripting for viewpoint and object 
movements 


4 Slideshow or animated playback of 
display frames 


5 Software interface to single frame 
camera 


6 “Fly through’ of scenes with moving 
objects 


7 Variable order spline curve generation 
for object and view point path 
generation 


8 Object description includes MACRO 
capability 


9 Source code includes direct to hard- 
ware assembly routines for high 
speed display 


10 Control viewpoint path, acceleration, 
and velocity 


11 Control object path, velocity, and 
rotation 


GenView allows you to specify a viewpoint 
path with a small set of ‘turning points. ’ 
It will then generate a smoothed series of 
frame locations along the path according 
to the velocity and acceleration 
parameters you specify. View direction 
may be backwards, forwards, or user 
specified. Object movement is controlled 
through a similar process with the addi- 
tion of rotation (about any or all axes). 


CGA Animation Sequence Demo 
$7.00 

EGA Animation Sequence Demo 
$9.00 (2 diskettes) 

CGA Flythrough Sequence Demo 
$9.00 (Requires hard disk) 


GenView System $99.00 


The GenView System includes executable 
code, source, MAKE files, object descrip- 
tion library, and manual (more than 40 
pages) on diskette. 


No Purchase Orders. Massachusetts 
residents add 5% sales tax. 
Outside USA add $15.00. 
VISA and MASTERCARD accepted. 
Call 617-528-4280 to order or send check 
or money order to: 
GenSoft Systems 
Dept. 9D 
PO. Box 1 
Foxborough, MA 02035 
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Listing Nime (Listing continued, text begins on page 18.) 


v_.test = v= 1; 
for (i = 0; !getpixel(h_test, v_test, &bmap) && i < 3; i++, v_test++) 


’ 


if (i == 3) 
return false; /* a tangent was hit */ 


h_test =h +1; /* test the 4-6 */ 
v_test = v - 1; 
for (i = 0; !getpixel(h_test, v_test, é&bmap) 66 i < 3; i++, v_test+t+) 


if (i == 3) 
return false; /* a tangent was hit */ 
return true; /* looks good! */ 


start_inflection: tests to see if this point is the start of an 
inflection in the contour. An inflection will not look like a crossing, 
but should be counted as one. 

An inflection looks like 


1 
Vv 


& Ws 


5 
for example. Only the first point on the inflection is counted. 


static int start_inflection(h, v) 
int nm, We 
{ 
register int h test, v_test, dir = 0, i; 


if (getpixel(h, v-1, ébmap)) 
return false; /* only count the start of an inflection */ 


h_test =h - 1; /* test the 1-3 */ 
v test - v- 1; 
for (i = 0; !getpixel(h_test, v_test, &bmap) && i < 3; i++, v_test++) 


’ 


if {i-<¢ 3} 
Gir = 1; 


h_test =h + 1; /* test the 4-6 */ 
v_ test =v - 1; 
for (i = 0; !getpixel(h_test, v_test, sbmap) && i < 3; i++, v_test+t) 


e 


SE: (E43) 
dir = -1; 
if (dir == 0) 
return false; /* no inflection here */ 
/* 
final test: track pixels downward 
if the turn at the end is in the opposite direction 
as the original turn (indicated by dir) 
‘9 then it is an inflection 


v test = v; 
while (getpixel (h, v_test+l, ébmap)) 
v_test++; 


if (v_test !=v) { 
v= vitest; 


/* let's test the pixels again! */ 

h_test = h - 1; /* test the 1-3 */ 

v_test = v - 1; 

for (i = 0; !getpixel(h_test, vtest, ébmap) 66 i < 3; itt, v_test++) 


? 


LF (1 <23) 
if (dir != 1) 
‘ return true; /* no change in direction, inflection */ 
else 
return false; /* reversed direction, was a tangent */ 
h_test = h + 1; /* test the 4-6 */ 


v_test =v - 1; 
for (i = 0; !getpixel(h_test, v.test, sbhmap) s6 i < 3; it+, v_testt++) 


if” (<3 
if (dir j= -1) 
return true; /* no change in direction, inflection */ 


return false; 


else 


} 
else 


; return false; 


#ifdef DEBUG 


/* 
Here is some code to display the progress of the algorithm 
Fixed point math is used to speed up calculations. 
Fixed point math is tricky in a typed language like Cc or 
i Pascal, and a cinch in assembly. 


@include <QuickDraw.h> 


static Fixed int to fix(i) 
int i; ee 
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asn | 


move.w 4, d0 : get the number 
ext.1 ao : clear top of do 
swap do ; make it a fixed point number, all done 


} 


static int fix to int(1) 


Fixed i 


{ 


asm { 


move.1l i,d0 z get the number 
add.l #0xA000, d0; add .5 to number, for rounding 
swap d0 3; make the ss ignore upper word of d0 


} 


static Fixed ratio = 0x00004000; 


static show point (h, v) 
register int h, v; 


{ 


} 


/* 
draw each point in right window 
acaled like the MacPaint draw function 
f 
GrafPptr oldPort: 
Rect r; 


GetPort (éoldPort); 
SetPort (right wind); 


r.top ~ fix_to_int(Fixmul(int to fix(v), ratio)):; 
r.left = fix_to int (FixmMal (int _ to  fixin), ratio)):; 
r.xright = r.left + 1; 

r.bottom = r.top + 1; 


FrameRect (&ér); 
SetPort (oldPort); 


static show line(hl,vl1,h2,v2) 
register int hi, vi, h2, v2; 
{ 


/* 
draw each line in right window 


scaled like the MacPaint draw function 
2 


GrafPtr oldPort; 


GetPort (é0ldPort); 
SetPort (right_wind); 


MoveTo(fix to _int(FixMul(int to fix(nl), ratio)), 
“fix to int(FixMul(int_to fix(vl), ratio))); 

LineTo(fix_to_int(FixMul (int to “fix(h2), ratio)), 
“fix _to_int(FixMul(int_to fix(v2), ratio))); 


SetPort (oldPort); 


#endif 
End Listing Nine 
Listing Ten 
/* 
getpixel.h 
’ contains function prototype for getpixel.c 
x 


#include <QuickDraw.h> 


extern int getpixel(int h, int v, BitMap *bmap); 


End Listing Ten 


Listing Eleven 


getpixel.c 

Returns the value of pixel h, v in the bitmap “bnap". 
Written in 68000 inline assembly both because it is faster 
and because it is quite easy to do. A version of this code 
was used by Mike Morton in his StarFlight progran. 


This version has the following limitations: 


1. It assumes that the cursor will not be in the way, 

i.e. it has either been hidden or we are looking at an off-screen 
bitmap. In the contour map algorithm we are looking at an 
off-screen bitmap. 


2. This version alsc assumes that the coordinates at the upper left 
are (0,0). Any offset tc the coordinate system (by a call to SetOrigin) 
is ignored. 


3. This code will probably not work on the screen buffer for large screen 
Macs, color Macs, gray scale Macs, etc. It works fine on off-screen bitmaps 
on my Mac II, as long as the depth is 1 bit per pixel. 


William May 
303A Ridgefield Circle 
Clinton, MA 01510 


Created: 1/20/87 
Modified: 3/21/87 Found a bug: getpixel wouldn't handle 
bitmaps > 32K. 





(continued on next page) 
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SQL Compatible Query System adaptable to any 
operating environment. 







































COL Query System. A subset of the Structured 
English Query Language (SEQUEL, or SQL) 
developed by IBM. Linked files, stored views, 
and nested queries result in a complete query 
capability. File system interaction isolated in an 
interface module. Extensive documentation 
guides user development of interfaces to other 
record oriented file handlers. 


Portable Application Support System 





Portable Windowing System. Hardware 
independent windowing system with borders, 
attributes, horizontal and vertical scrolling. 
User can construct interface file for any 
hardware. Interfaces provided for PC/XT/AT 
(screen memory interface and BIOS only 
interface), MS-DOS generic (using ANSI.SYS), 
Xenix (both with and without using the curses 
interface), and C-library (no attributes). 





Screen |/0, Report, and Form Generation 
Systems. Field level interface between 
application programs, the Query System, and 
the file system. Complete input/output 
formatting and control, automatic scrolling on 
screens and automatic pagination on forms, 
process intervention points. Seven field types: 
8-bit unsigned binary, 16 bit signed binary, 16 
bit unsigned binary, 32 bit signed binary, 
monetary (based on 32 bit binary), string, and 
date. 


Including Source Code 
$395.00 


File System interfaces include 
C-tree and BTRIEVE. 


HARDWARE AND FILE SYSTEM 
INDEPENDENT 





MAcHINE 
INDEPENDENT 
SOFTWARE 


CoRPORATION 


1415 NORTHGATE SQUARE #21D 
RESTON, VA 22090 


VISA/Master Charge accepted 


(703) 435-0413 


*C-tree is a trademark of FairCom 
IBM, SEQUEL, PC, XT, AT are trademarks of 1BM Corp. 
MS-DOS and Xenix are trademarks of Microsoft Corp. 


CQL and the COL logo are trademarks of 
Kurtzberg Computer Systems. 
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Cross Assemblers 


Universal Linker 
Powerful Librarian 


PC/MS DOS, micro VAX, 
VAX VMS, VAX UNIX/ULTRIX 


Targeting over 30 Microprocessors 
Version 2.1 is FAST 

Powerful Macros 

Absolute or Relocatable Code 
Compatible with all Assemblers 
Conditional Assembly 

$295 up for Complete Packages 


19 Jenkins Ave. 

Lansdale, PA 19446 U.S.A. 
telephone: 215-362-0966 
telex: 4948709 ENERTEC 


Enertec inc. 
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PLOT TEXT ON 
ANY GRAPHICS SCREEN! 


YES, we sald ANY Graphics Screen, even VGA! 
FINALLY! Xgraf Is a super set of smart low level 
assembly graphic routines that you call direct- 
ly trom Complied BASIC. Xgraf repiaces BASIC’s 
confusing graphics statements with consistent, 
full featured calis specifically designed for the 
BASIC programmer. 









FINALLY! Xgraft is only $99.00 + $4.00 S&H 


We specialize in libraries and tools for Com- 
plied BASIC. Our catalog features the FINALLY! 
Family of Products and other top flight tools. 


Call: 4 800 423-3400 
(9:00 AM to 8:00 PM EST) 
PA & AK call (442) 782-0384 


KOMPUTERWERK 
851 Parkview Bivd. 
Pittsburgh, PA 15215 
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NEW! TLIB”™ 4.0 
SOURCE CODE CONTROL 


The best keeps getting better! 


The critics loved TLIB 3.0... 

“...packed with features... [generates deltas] 
amazingly fast... [of the 6 reviewed] the two best 
packages are Burton Systems’ TLIB and [a $395 
product], so designated because of their ease of 
use, abundance of features, and ability to be 
configured...” PC Tech Journal Sept 87 


“...has my highest recommendation.” Ronny 


Richardson, Computer Shopper Aug 87 


e The fastest, most powerful system is now even faster! 


e Many new features! Expanded keyword support. Multi- 
line comments. Branching, for multiple development lines. 
Extended wildcard and list-of-file support; creates lists by 
scanning source code for includes. Can merge (reconcile) 
multiple simultaneous changes and undo intermediate 
revisions. Network and WORM optical disk support. 

e Includes a copy of Landon Dyer's excellent public domain 
MAKE utility (with source code for DOS & VAX/VMS). 


PC/MS-DOS 2.x &3.x Just $99.95 + $3 s/h Visa/MC 
BURTON SYSTEMS SOFTWARE 
P. O. Box 4156, Cary, NC 27519-4156 
(919) 469-3068 
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3) IMAGES 


Listing Eleven (Listing continued, text begins on page 18.) 


#include <QuickDraw.h> 


_#include <asm.h> 


#include “getpixel.h" 


int getpixel(h, v, bmap) 
int h, v: 

BitMap *bmap; 

{ 


asm 
move.w v, dao : load v and h into registers 
ext.1l do 
move.w h,dl 
ext.1 dal 
move.w dl,d2 # copy h coord for bit offset 
s only need low order byte 
move.1l bmap, a0 : point to bitmap 
mulu OFFSET (BitMap, rowBytes) (a0),d0 
3 Vv * rowbytes is offset to row 
lsr.1 #3,d1i s extract byte offset 
add.1 di,do 
not .b d2 s make bit number 68000 style 
move.1l OFFSET (BitMap, baseAddr) (a0),a0 
3 get base address of bitmap 
add. d0,a0 3 get to the correct byte 
btst d2, (a0) 3 test the bit 
beq 0 
moveg #1,d0 : set value to l 
return 
#0 
moveg #0,d0 3 set value to 0 
) 2 s 
) End Listing Eleven 


Listing Twelve 


/* 
mem.h 
definition info for memory management 
William May 

iy created: 3/25/87 


#define SYSERR -1l 


/* 
* roundew, truncew - round up or truncate address to the next 


* even word. 
a/ 


#define roundew (x) 


(int *)((3 + (long) (x)) & (~3)) 
#define truncew (x) 


(int *) (( (long) {x)) & (~3)) 


#define DEFSIZE (150000) /* default size for a new pool */ 
/* 

* node structure for each node in the free memory list 

af 


struct mblock { 
struct mblock *mnext; 
unsigned long mlen; 
ies 


/* 
* structure for pools 
af 
struct pool { 
struct pool *pnext; Sit 
struct mblock firstblock; End Listing Twelve 


}e 
Listing Thirteen 


getmem.c 


Implements low overhead memory management for nonrelocatable 
blocks on the Macintosh. This code is based on “Operating System 


Design: The XINU Approach" by Douglas Comer (Prentice Hall, 1984. 
Great book!) 


Motivation: 


The Macintosh Memory Manager is designed to use relocatable 

blocks (i.e. pointers to pointers) for heap data structures. In 

order that relocatable blocks be free to move the Memory Manager 

tries to keep nonrelocatable blocks (1.e. blocks referred to by 
pointers) out of the way, i.e. in low mem. To do this, when a program 
asks for a nonrelocatable block the Memory Manager starts a linear 
search for available space at the bottom of the heap. In an 
application such as a tree, where many thousands of small blocks are 
needed, the linear search technique quickly dies. 


The code below bypasses this problem by requesting one large block at 
the start of execution (i.e. when init mem is called). The function 
getmem then maintains a pointer to the next available block. Thus 
any request for memory is satisfied immediately. No search is needed. 
The performance difference in the contour analysis is quite dramatic. 
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Listing Thirteen (Listing continued, text begins on page 18.) 


The code below is quite simple but not flexible. One notable 
lack is for a routine to free memory. Such a function is shown in 
eS oeees Another limitation that only one block is used. 
e functions can be extended to be able to add new bl 
needs additional space. Moreen 


William May 
303A Ridgefield Circle 
Clinton, MA 01510 





created: 3/25/87 very primitive version, but works: 












one pool only created ~ 
user has to guess the required space 

speed increase is dramatic, especially AE 
as the contcur algorithm progresses (i.e. 





as the AVL tree gets quite large). PERSONAL 


a ae er ey eT ee 4 VERSION 
#include <MemoryMgr.h> a 
#include “mem.h" 
struct mblock memlist; /* head of free memory list */ 
struct pool “plist; /* head of pool list */ 
/ ® ee ee eo ee ew ew rr ee 


init mem creates a large memory pool, and initializes the necessary 


data structures. Searches 5,000 text files in 


int init _mem() 5 seconds. 


{ 





The ultimate personal computer 
information retrieval software. 


Find any information created by the 
popular word processors or ASCII files, in 
seconds-without having to set up 4 
database or do programming. Scan a 20 
Mbyte hard disk or a collection of floppies 
and instantly display all occurrences of a 
name, a product, a phrase, a number, or 
anything else you need to find. Save hours 
of manual searching. 


plist = (struct pool *)NewPtr(sizeof(struct pool) + DEFSIZE); 


if (MemErr == noErr) { 
plist->pnext = (struct pool *)0; 


memlist.mnext = &(plist->firstblock); 
(memlist.mnext)->mnext = (struct mblock *)0; 
(memlist.mnext)->mlen = (long) (DEFSIZE); 


return MemErr; 


getmem allocates memory in the pool. On successful completion 
a pointer to the allocated space is returned to the caller. Otherwise 
a null pointer (0L) is returned. 


int *getmem(nbytes) 
unsigned long nbytes; 
{ 





























FEATURES 


* Comprehensive searches create a 
search request with any combination of 
AND, OR, NOT, and WITHIN (WITHIN 
refers to how far apart two words or 

phrases can be — up to 30,000 words). 


¢ Wild Cards, for example: type “micro*” 
to get (microcomputer, microcomputing, 
micro-processor, etc.). * Mark and Save 
retrieved information to create a new file. 
* Highlights search-words and phrases 
in retrieved text. On Line Help Menus. 
¢ Find Function automatically displays 
search topic in the retrieved file.» Phrase 
Search, in addition to single word search. 


SYSTEM REQUIREMENTS MINIMUM 


¢ 384K * Two Disk Drives * DOS 2.0 or 
above « Designed for IBM PC, XT, AT, 
compatibles, and most MS-DOS computers 


register struct mblock *p, *q, *leftover; 


if (nbytes — 0) { 
return (int *)0; 
} 


nbytes = (unsigned long) roundew(nbytes) ; 





for (q=émemlist, p=memlist.mnext; p != OL; q=p, p=-p->mnext) 
if (p->mien == nbytes) { 
q->mnext = p->mnext; 
return ({(int *)p); 
} else if (p->mlen > nbytes) { 
leftover = (struct mblock *)((unsigned long)p + nbytes); 
q->mnext = leftover; 
leftover->mnext = p->mnext; 
leftover->mlen = (long) (p->mlen - nbytes); 
return ((int *)p); 
} 


return ({(int *)0); 


End Listing Thirteen 


Listing Fourteen 
[ tenn nena nnn nnn nn nn nnn nn nn nnn nnn nn nnn nnn nnn nn rn nnn nn ZyINDEX Personal $95 


error.c Searches up to 325 files 


ZyINDEX Standard $145 
Searches up to 500 files 


ZyINDEX Professional $295 
Searches up to 5,000 files 


very primitive error handler 


William May 
303A Ridgefield Circle 
Clinton, MA 01510 





cee ee ee ee erence nee ee nnn. meee nan eee seen emnn nec onnsensae a / 
ZyINDEX Plus $695 
#include <stdio.h> Searches up to 15,000 files with LAN capabilities. 
[ Be a in a 30 Day Money Back Guarantee 
4£ an error number specified then print it, ™ 
otherwise only print the message ZyLAB 
mee ee re ee een een nena meme wee me esse ee ee nnn nna era a a=  / 
syserr(errno, $s) Corporation 


int errno; 
char’. *s;3 
{ 


3105-T North Frontage Rd. 
Arlington Heights, Illinois (312) 642-2201 
(800) 544-6339 For orders and information. 


4f (errno) printf("Error (%d): s\n", errno, $s); 
else printf("Error: %s\n", 3s); 








ExitToShell (); 


} es em a oe CIRCLE 329 ON READER SERVICE CARD 
eo 
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8031 
FORTH DEVELOPMENT ENVIRONMENT 


Take advantage of Bryte’s tools to make your job easier: 


@ Bryte’s development environment uses BRYTE-FORTH 
on the actual production hardware during product 
development. No emulators, no changes, no surprises. 


Optional PC-based cross-development tools use DOS 
files as microcontroller mass storage. These files 
can be used to generate compact EPROM images, de- 
tailed listings, and cross-references. 


Why not start developing the Bryte way today? 
BRYTE-FORTH 8831 EPROM 400;.06 
(includes 130 page User’s Manual) 
Utility disk(s) 
Cross-compiler/Cross-assembler 
8031 unlimitted quan. license 


65 .00* 
255.00* 
1000.00* 


* Includes complete source code 


oryte computers, inc. 


P.O. Box 46 
Augusta, ME 04330-0046 


207/547-3218 
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386 


C ana Pascal 
for MS-DOS 


MetaWare Incorporated announces the first 
available C and Pascal compilers that generate 


protected-mode 80386 code 


for running on any 80386 machine that runs MS-DOS (eg., the 
Compaq Deskpro 386). The compilers are functionally identical to 
the well-respected 8086/286 MS-DOS High C™ and Professional 
Pascal™ compilers that have received outstanding reviews in such 
magazines as Computer Language, Dr. Dobb's, and PC Tech Jour- 
nal. Our compilers are currently used by industry leaders such as 
Ashton-Tate, AutoDesk, ANSA, and Lifetree. Now you can get them 
generating 80386 code. 


If you have an application that requires the large 32-bit address 


space and the full 32-bit registers of the 80386, expand your mar- 


ketplace to the rapidly growing Supply of 80386 MS-DOS machines. 
Contact MetaWare for your 80386 software solution today! 
(408) 429-6382, telex 493-0879. 


Durable Software Constructed Automatically ™ 


Mets NN, sre” 


INCORPORATED 
903 Pacific Avenue, Suite 201 e Santa Cruz, CA 95060-4429 
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~ TURBO C TOOLBOX 


Listing One (Text begins on page 30.) 

/* VIDEO.I: Contains ROM BIOS video calls to be used in Turbo € */ 
#define ROM 0x10 

union REGS inreg, outreg; 


int videomode (int *ncols) /* get current display mode 
{ /* return number of cols via *ncols 
inreg.h.ah = 0x0F; 
int86 (ROM, éinreg, éoutreg); 
*ncols = outreg.h.ah; 
return (outreg.h.al); 
} [*& senna n------------------ */ 
int activepage (void) 
{ 


/* number of cols 
/* return mode 


/* return active display page 


inreg.h.ah = Ox0F; 
int86 (ROM, éinreg, soutreg); 
return (outreg.h.bh); 
) 7* 
void setmode (int mode) 
{ 
inreg.h.al = mode; 
inreg.h.ah = 0x00; 
int86 (ROM, éinreg, ésoutreg); 
} /* wnnn-------------------- af 
void setcursor (int start, int end) 


/* set video mode 


/* set cursor shape 


inreg.h.ch = start; 
inreg.h.cl = end; 

inreg.h.ah = 0x01; 

int86 (ROM, éinreg, éoutreg); 


} /*® ------------------------ mf 
int curstart (void) /* get cursor starting line 
{ 

inreg.h.bh = 0; /* (cursor shape same in all pages 


inreg.h.ah = 0x03; 
int86 (ROM, é&inreg, soutreg); 
return (outreg.h.ch); 
} [8 amen nan n n= ------~------- =f 
int cursend (void) 
{ 
inreg.h.bh = 0; 
inreg.h.ah = 0x03; 
int86 (ROM, éinreg, éoutreg); 
return (outreg.h.cl); 


/* get cursor ending line 


} [*& annwnn------------------ a/ 
void cursoff (void) /* turn cursor off 
{ 
inreg.h.ch = curstart () | 0x10; /* turn on bit 4 
inreg.h.cl = cursend (); 
inreg.h.ah = 0x01; 
int86 (ROM, éinreg, éoutreg); 
} [8 een nnnnnn---------------- *] 


void curson (void) /* turn cursor on 
{ 
inreg.h.ch = curstart () & 0x07; 


inreg.h.cl = cursend (); 


/* turn off high order bits 


inreg.h.ah = 0x01; 
int86 (ROM, éinreg, éoutreg); 
} [*% qn----------------- +--+ af 


void gotoxy (int col, int row, int page) /* set cursor pos 
{ /* must specify page 
inreg.h.bh = page; 
inreg.h.dh = row; 
inreg.h.dl = col; 
inreg.h.ah = 0x02; 
int86 (ROM, éinreg, 
23 
int wherex (int page) 
{ 


éoutreg); 
/* return cursor column in page 


inreg.h.bh = page; 

inreg.h.ah = 0x03; 

int86 (ROM, éinreg, ésoutreg); 

return (outreg.h.dl); 
} /* -~---------------------- =f 
int wherey (int page) /* return cursor row in page 
{ 

inreg.h.bh = page; 

inreg.h.ah = 0x03; 

int86 (ROM, éinreg, éoutreg); 

return (outreg.h.dh); 
Ef 
void setpage (int page) /* set active display page 
{ 

inreg.h.al = page; 

inreg.h.ah = 0x05; 

int86 (ROM, éinreg, éoutreg); 
} /& awnen-------------------~- af 
void cls (void) /* clear active screen 
{ 

/* entire screen 

/* set to gray on black 


inreg.h.al = 25; 
inreg.h.bh = 0x07; 
inreg.h.ah = 0x06; 
inreg.h.cl = 0; inreg.h.ch = 0; 
inreg.h.dl =.79; inreg.h.dh = 24; 
int86 (ROM, éinreg, éoutreg); 
gotoxy (0, 0, activepage ()); 
} /* ee ee we wm ow ww we ee Ct 
void window (int xl, int yl, f* 
int x2, int y2, 
char attrib) 


window upper left corner 
/* lower right corner 
/* text attribute inside 
{ 
inreg.h.al = y2 - yl + 1; 
inreg.h.bh = attrib; 
inreg.h.cl = xl; inreg.h.ch = yl; 
inreg.h.dl = x2; inreg.h.dh = y2; 
inreg.h.ah = 0x06; 


/* clear entire window 
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} / 
int pixel (int x, int y) 





int86 (ROM, éinreg, éoutreg): 
* 


} [8 eee e cet ee see eeen nanan * 
void winScroll (int xl, int yl, int x2, int y2, /* scroll window */ 
int attr) /* one line upward */ 
inreg.h.al = 1; 
inreg.h.cl = xl; inreg.h.ch = yl; 
inreg.h.dl = x2; inreg.h.dh = y2; 
inreg.h.bh = attr; 
inreg.h.ah = 0x06; 


int86 (ROM, éinreg, éoutreg); 


} 7%) See eee eee erage «/ 
char chattr (int foregrnd, int backgrnd) 


/* character attrib*/ 


return ((backgrnd << 4) + foregrnd); 


} [8 mnenn nn nnn nena nnn nanan n= */ 


char rdchara (int page, 
{ 


/* read char at curs pos */ 
char *attrib) /* return attribute indirectly */ 
inreg.h.bh = page; 

inreg.h.ah = 0x08; 

int86 (ROM, éinreg, écutreg); 

*attrib = outreg.h.ah; 

return (outreg.h.al); 


} [8 cceeene son sesener sera mf 
void wrtcha (char ch, char attrib, /* write char + attrib */ 
int page) /* at cursor pos on page */ 
{ /* NOTE: does not advance cursor */ 
inreg.h.al = ch; 
inreg.h.bh = page; 
inreg.h.bl = attrib; 
inreg.x.cx = 1; 
inreg.h.ah = 0x09; 


int86 (ROM, éinreg, éoutreg); 


} [8 wee ro rn meter errs «/ 
void wrtstra (char *str, 


/* write string */ 
char attrib, /* with attribute */ 
int page) /* to page */ 


{ /* starting at cursor position */ 
int. c, ft, ty p= OF 


/* get width of screen */ 
/* get current row */ 


videomode (én); 
r= wherey (page); 
while (stri[p)) { 
wrtcha (str[pt+], attrib, page); 
if ((c = wherex (page)) < (n - 1)) 
gotoxy (c + l, r, page); 
else 
gotoxy (0, ++r, page); 


/* write next char */ 
/* advance cursor */ 


/* else wrap */ 


{ 


} R mewn ewe ee ee x / 
void wrtch (char ch, int color, /* write char in color */ 
int page) /* at cursor position on page */ 
inreg.h.al = ch; 
inreg.h.bl = color; 
inreg.h.bh = page; 
inreg.x.cx = 1; 
inreg.h.ah = 0x0A; 


int86 (ROM, é&inreg, séoutreg); 


bE er eee earns s/ 
void wrtstr (char *str, 


/* write string */ 


char color, /* in color */ 


int page) /* to page */ 
{ /* starting at cursor position */ 
int c, r, h, p = 03 
videomode (&n); /* get width of screen */ 
r= wherey (page); /* get current row */ 
while (str{p]) { 
wrtcha (str[pt+t+], color, page); /* write next char */ 


4f ((c = wherex (page)) < (mn - 1)) 
gotoxy (c + 1, r, page); 

else 
gotoxy (0, ++r, page); 


/* advance cursor */ 


/* else wrap */ 


} 
} [8 Kee ene see en ene meen ee */ 
void palette (int palno) /* set color palette */ 
{ /* valid only in mode 4 on CGA */ 


inreg.h.bh = 1; 

inreg.h.bl = palno; 
inreg.h.ah = Ox0B; 

int86 (ROM, éinreg, éoutreg); 


\ 2 ae eee ene ere sf 
void graphbackground (int color) 
{ 


/* set graphics b/g color */ 


inreg.h.bh = 0; 

inreg.h.bl = color; 
inreg.h.ah = Ox0B; 

int86 (ROM, éinreg, éoutreg); 


}, fe nee ete es eee af 
void plot (int x, int y, int pixel) /* plot pixel at x, y */ 
{ 
inreg.h.al = pixel; /* pixel (color) value */ 
inreg.h.bh = 0; 
inreg.x.ck = X; 
inreg.x.dx 


a y; 
inreg.h.ah = 0x0C; 
int86 (ROM, éinreg, Ss egw 
Rw we we we a ww ww we oe ee «x 


/* return pixel value at x, y */ 
{ 

inreg.x.cx = X; 

inreg.x.dx = y; 

inreg.h.ah = 0x0D; 

int86 (ROM, é&inreg, soutreg); 

return (outreg.h.al); 
pO LR emer rere rrr ar raa= a/ 


End Listing One 
(Listing Two begins on next page) 
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Announcing 
WKS LIBRARY 


The Lotus ‘‘Wrap-Around’’ for C Programs 


Now you can write and read Lotus worksheets 
directly from a C program! 


WKS LIBRARY lets you: 


e avoid time-consuming file translation steps 

¢ control the execution of 1-2-3 from inside your application 
e use Lotus as a data entry screen in your C program 

e generate ‘‘live’’ financial statements with formulas for totals 


Feature this: 
e reads and writes .WKS, .WK1 and .WR1 worksheets 
e writes integers, floats, strings, formulas, macros and dates 
using wprintf0 
e reads using wscanf(), converting column contents to C 
variables according to format specs 
e has low-level functions for manipulating individual cells 
provides Lotus control functions such as: 
formats, column widths, initial cursor position, range 
names, cell protection 
© supports Lattice, Microsoft & Turbo compilers for DOS, plus 
most UNIX environments 
Source Code provided No Royalties on executable programs 


Only $89 ZZ ORDER TODAY! 


(includes free ‘ Toll-free 
800-line support) (800) 367-9882 


ly Software, Inc. 
| 2 1980 - 112th NE, #250, Bellevue, WA 98004 
(206) 453-1914 (in Washington state) 


Amazing 


Your Original AMIGA™Monthly Resource 
FEATURING 


*Complete Amiga Hardware and Software reviews 
¢A vast and growing library of over 110 PDS Disks 
*Solid and informative for both the advanced 

and beginning Amiga User 
*Understandable program listings and tools 
*Step by Step Hardware projects 


Amiga Users have made Amazing Computing™ the longest running 
Monthly magazine dedicated to the Commodore Amiga If you are 
searching for Amiga technical information that is both current and 
comprehensive, then be amazed by the pioneer Amiga Magazine, 
Amazing Computing - your Original AMIGA Monthly Resource. 
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Listing Two (Text begins on page 30.) 


/* VIDEO.H: Prototypes for contents of user-written VIDEO.LIB */ 
/* Describes calls to ROM BIOS video functions */ 


int videomode (int *ncols); 

int activepage (void); 

void setmode (int mode); 

void setcursor (int start, int end); 

int curstart (void); 

int cursend (void); 

void cursoff (void); 

void curson (void); 

void gotoxy (int col, int row, int page); 

int wherex (int page); 

int wherey (int page); 

void setpage (int page); 

void cls (void); 

void window (int x1, int yl, int x2, int y2, char attrib); 
char chattr (int fgrnd, int bgrnd); 

char rdchara (int page, char *attr); 

void wrtcha (char ch, char attr, int page); 
void wrtstra (char *str, char attr, int page); 
void wrtch (char ch, int color, int page); 
void wrtstr (char *str, char color, int page); 
void palette (int palno); 

void graphbackground (int color); 

void plot (int x, int y, int pixel); 


int pixel (int x, int y); End Listing Two 


Listing Three 
/* DRAW.I: Draws lines in graphics mode */ 


/* hdraw draws horizontal line along y between xl and x2 */ 
void hdraw (int xl, int x2, int y, int color) 

{ . 

int. xy 


x = xl; xl = x2; x2 = x; 
} 
for (x = xl; x <= x2; x++) 
plot (x, y, color); 
} [* aann--=----------------- */ 


/* vdraw draws vertical line along x between yl and y2 */ 
void vdraw (int yl, int y2, int x, int color) 





if (xl > x2) { /* sort x's into left-to-right order */ 


if (yl > y2) { /* sort y's into top-to-bottom order */ 
pte yl = y2; y2 = y; 


for {y = yl; y <= y2; yt+) 
) [8 www ee ne nnn nn nnn n- - === af 


/* draw() does lines on the diagonal */ 

void draw (int xl, int yl, int x2, int y2, int color) 

{ 

double xstep, ystep, xcum = 0.0, ycum = 0.0; 

int dx, dy; /* deltas */ 
register x, y; 


ax = x2 - xi; 


dy = y2 - yl; 
if tabs (ax) >= abs (dy)) { /* plot along x axis */ 
ystep = (double) dy / dx; /* movement along y axis per x */ 
if (dy < 0) { /* y travels to the left */ 
if (ystep > 0) 
ystep *= -1; /* adjust for wrong sign from -y/-x */ 
} else /* y travels to the right */ 
if (ystep < 0) 
ystep *= -1; /* adjust as above */ 
dx /= abs (dx); /* x increment */ 





for (x = xl, y = yl; x != x2; x += dx) { 
plot (x, y, color); 


ycum += ystep; /* cum motion along y axis */ 

y = yl + ycun; /* next y */ 

} else { /* plot along y axis */ 

xstep = (double) dx / dy; /* movement along x axis per y */ 
if (dx < 0) { 


if (xstep > 0) 
xstep *= -1; 
} else 
if (xstep < 0) 
xstep *= -1; 
dy /= abs (dy); /* y increment */ 
for (y = yl, x = xl; y != y2; y += dy) { 
plot (x, y, color): 
xcum += xstep; /* cum motion along x axis */ 
x = xl + xcum; /* next x */ 


End Listing Three 








eer Henecyi. 


Get real productive with REAL-TOOLS, a 
general purpose set of “C” development 
tools for UNIX™ and XENIX™, 


Get Graphics Too! [n addition to 
an advanced screen management system 
and superior windowing capabilities, REAL- 
TOOLS offers user-defined graphics for 
you to draw, save, recall, copy and animate 
symbols and panels. 












So if you're developing applications for the 
real world — get real productive. Get 
graphics. Get REAL-TOOLS. 






$99 Binary only. $549 Library source. $999 Complete source. 


PCu 


Pioneering Controls Technologies, Inc. 
510 Bering Drive, Suite 300, Houston, Texas 77057 
(713) 266-8649 


™REAL-TOOLS is a trademark of Pioneering Controls Technologies, Inc 
™UNIX is a trademark of AT&T 
™XENIX is a trademark of Microsoft Corporation 
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NEW! 
FASTER THAN EVER! 
DeSmet C v3.0 


FASTER C DEVELOPMENT 









Invoke the DeSmet C compiler from the SEE'™ full screen editor and 
the first error will return you immediately to SEE at the error line with 
the error message displayed. 


FASTER COMPILATION 








When you don't use inline assembly code or don't want to see the 
ASM88 output, the V3.0 compiler produces object code directly - 
making DeSmet C up to twice as fast as before. 


PLUS EXPANDED STANDARD LIBRARY 






Networking, path, file, time, enhanced string functions, environment 
support now included. 


FULL FEATURES WITH EVERY PACKAGE 
—— ONLY $109 —_ 









C Compiler, Assembler, Binder, Librarian, Execution Profiler, Overlays, 
8087 and S/W Floating Point, Full STDIO Library and Full Screen Editor 
(SEE). Debugger and Large Case options available at $50 each. 








C Ware Corporation 
P.O. Box 428, Paso Robles, CA 93447 
Phone: (805) 239-4620 Telex: 358185 BBS: (805) 239-4834 
We accept VISA, MC & AMEX. Call now and we'll ship today, 
Street Address: 945 Spring #14, Paso Robles, CA 93446 
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Listing Four 


/* COLORS.H: Maps color names */ 


#define BLACK 0 
#define BLUE 
#define GREEN 
#define CYAN 
#define RED 
#define MAGENTA 
#define BROWN 
#define LIGHTGRAY 
#define DARKGRAY 
#define LIGHTBLUE 
#define LIGHTGREEN 10 
#define LIGHTCYAN Ta: 


WO IAM Ll wWDNHPeH 


#define LIGHTRED i2 
#define LIGHTMAGENTA 13 
#define YELLOW 14 
#define WHITE 15 


End Listing Four 


Listing Five 
/* VID.C: Demos video functions */ 


/* TURBO C INCLUDES */ 
#include <stdio.h> 
#include <bios.h> 
#include <dos.h> 


/* USER-WRITTEN INCLUDES */ 
#include <colors.h> 
#include <video.i> 
#include <draw.i> 


/* LOCAL FUNCTION PROTOTYPES */ 

int vidIdent (int *vidmode); 

void wait (void); 

void stairsteps (void); 

int isEGA (void); 

void label (void); 

void bigxX (int adap, int vmode); 
void hourglass (int adap, int vmode); 


/* GLOBALS */ 
enum vidTypes {mda, cga, ega, compaq, other}; 





PROGRAMMERS! 


THE TOooLs YOU NEED 


main () 


{ 


int adaptor, mode, cols; 


} 


int vidIdent (int *vidmode) 


cls (); 
adaptor = vidident (&mode); 
if (adaptor != other) { 
stairsteps (); 
bigX (adaptor, mode); 
hourglass (adaptor, mode); 
label (); 
gotoxy (36, 12, 0); 
puts ("All done!"); 


} 
[2 www wnewe ew een nen en enon */ 


/* clear screen */ 
/* identify video adaptor */ 


/* cursor positioning demo */ 


/* graphics demo #1 */ 
/* graphics demo #2 */ 


/* identify video adaptor */ 


{ 
int flag, adap, width; 


label (); 
puts ("\n\nDISPLAY INFORMATION:"); 
*vidmode = videomode (éwidth); 
flag = (biosequip () & 0x18) >> 4; 
if (isEGA ()) { 
adap = ega; 
puts ("\n\n Enhanced Graphics Adaptor"); 
} else 
switch (flag) { 
case 0: if (*vidmode = 2) { 
adap = compaq; 
puts ("\n\n Compaq adaptor"); 
} else { 
adap = cga; 
puts ("\n\n Color Graphics Adaptor"); 


/* label display */ 


/* get video mode */ 
/* get video eqpt flag */ 


} 
break; 
case 3: adap = mda; 
puts ("\n\n Monochrome Display Adaptor"); 
break; 
default: adap = other; 
puts ("\n\n Adaptor not usable in this demo. Sorry."); 
} /* end of switch */ 
printf ("\n Text screen size is %d columns x 25 rows\n", width); 
if (({*vidmode < 4) || (*vidmode — 7)) 
puts ("\n Text mode currently active"); 
else 
puts ("\n Graphics mode currently active"); 
wait (); 
return (adap); : 
(continued on next page) 
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386|DEBUG 


e A symbolic debugger for 80386 32-bit 
protected mode programs which run 
under Phar Lap's 386|DOS-Extender™ 


e Breakpoints, data watchpoints, and built-in 
disassembler 
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Fortran compiler 
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Listing Five 
(Listing continued, text begins on page 30.) 


} [8 ewe wenn nen nnn nn ne === a/ 
/* determine if EGA is attached */ 
/* return TRUE if so, FALSE if not */ 
/* check EGA info byte */ 

oe iat tsa Ae Rested ah Novena estore a / 


void wait (void) 


{ 
int tab, width; 


/* prompt to continue, wait for keypress */ 


videomode (&width); 
tab = (width - 33) / 2; 
gotoxy (tab, 24, 0); 
wrtstr ("Press any key to continue demo...", WHITE, 0); 
getch (); 


/* get width in columns */ 
/* starting column for text */ 


} 
void label (void) 
{ 
gotoxy (30, 0, 0); 
wrtstra ("Video demonstration", chattr (YELLOW, BLUE), 0); 
} [8 anann------------------- */ 
void stairsteps (void) 


/* label the screen at top center */ 


int color = 1; 


label (); 

gotoxy (31, 2, 0); wrtstr ("Cursor positioning", LIGHTGRAY, 0); 
gotoxy (10, 4, 0); wrtstr ("Stair", color++, 0); 

gotoxy (20, 10, 0); wrtstr ("steps", color++, 0); 

gotoxy (30, 16, 0); wrtstr ("going", color++, 0); 

gotoxy (40, 22, 0); wrtstr ("down", color++, 0); 

gotoxy (50, 16, 0); wrtstr ("“and", colort+, 0); 

gotoxy (60, 10, 0); wrtstr ("back", color++, 0); 

gotoxy (70, 4, 0); wrtstr (“up", color, 0): 


ne epvitr lty sipilteahel tl caoal * / 

void bigx (int vidAdap, int vmode) /* APA graphics demo #1 */ 

{ /* draws full-screen border and X, adjusting */ 
/* for EGA or CGA as indicated */ 

int xl = 0O, x2 = 639; 

int yl = 15, y2:; 


if ((vidAdap == mda) || (vidAdap == other)) /* can't do it */ 
return; /* so return with no action */ 
if (vidAdap — ega) { /* EGA demo: 640 x 350 (mode OFh) */ 
y2 = 349 - 15; /* set bottom of graphics screen */ 
setmode (0x0F); /* go to EGA mono graphics mode */ 
} else { /* CGA|Compag demo: 640 x 200 (mode 06h) */ 
y2 = 199 - 15; 
setmode (0x06); 
} 
label (); 
hdraw (xl, x2, yl, 1); 
hdraw (xl, x2, y2, 1); 
vdraw (yl, y2, xl, 1); 
vdraw (yl, y2, x2, 1); 
draw (xl, yl, x2, y2, 1); 
drav (21, -yZ, «2, °¥1, 1): 


/* label the screen */ 

/* draw line across top */ 
/* then bottom */ 

/* down left side */ 

/* down right side */ 

/* main diagonal */ 

/* cross diagonal */ 


wait (); 

setmode (vmode) ; 
} [8 eww wn nnn nn nn n= --- == */ 
void hourglass (int vidAdap, int vmode) /* graphics demo #2 */ 
{ /* operates in 329 x 200 four-color (CGA) mode */ 
int Y, X1 = 60, x2 = 260, pixval = 1; 

if ((vidAdap == mda) || (vidAdap == other)) /* can't do it */ 

return; /* so go back */ 


setmode (4); 
gotoxy (8, 0, 0); 
puts ("320 x 200 color graphics") ; 
palette (0); 
for (y = 50; y < 151; yt+ ) { 
hdraw (xl, x2, y, pixval); 
x1 t= 2; x2 -— 2; 
if (y — 84) pixval = 2; 
if (y == 117) pixval = 3; 


/* go to CGA graphics mode */ 
/* show mode */ 

/* draw figure */ 

/* change x's */ 


/* change colors */ 


} 
wait (); 
setmode (vmode); 
) [* ------------------------ s/ 


End Listings 


LS Ee re See 
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SAS Institute Inc. 


Announces 


Lattice C Compilers for Your IBM Mainframe 


Two years ago... 

SAS Institute launched an effort to develop a 
subset of the SAS® Software System for the 
IBM Personal Computer. After careful study, 
we agreed that C was the programming 
language of choice. And that the 

Lattice® C compiler offered the quality, 
speed, and efficiency we needed. 


One year ago... 

Development had progressed so well that we 
expanded our efforts to include the entire 
SAS System on a PC, written in C. And to 
insure that the language, syntax, and 
commands would be identical across all 
operating systems, we decided that all future 
versions of the SAS System —regardless of 
hardware—would be derived from the same 
source code written in C. That meant that 
we needed a C compiler for IBM 370 main- 
frames. And it had to be good, since all our 
software products would depend on it. 

So we approached Lattice, Inc. and asked 
if we could implement a version of the 
Lattice C compiler for IBM mainframes. 
With Lattice, Inc.’s agreement, development 
began and progressed rapidly. 


Today... 
Our efforts are complete—we have a first- 
rate IBM 370 C compiler. And we are 
pleased to offer this development tool to 
you. Now you can write in a single 
language that is source code compatible with 
your IBM mainframe and your IBM PC. We 
have faithfully implemented not only the 
language, but also the supporting library and 
environment. 

Features of the Lattice C compiler for 
the 370 include: 


@ Generation of reentrant object code. 
Reentrancy allows many users to share 
the same code. Reentrancy is not an 
easy feature to achieve on the 370, 
especially if you use non-constant 
external variables, but we did it. 

@ Optimization of the generated code. We 
know the 370 instruction set and the 
various 370 operating environments. We 
have over 100 staff years of assembler 
language systems experience on our 
development team. 

@ Generated code executable in both 
24-bit and 31-bit addressing modes. You 
can run compiled programs above the 
16 megabyte line in MVS/XA. 

@ Generated code identical for OS and 
CMS operating systems. You can move 
modules between MVS and CMS 
without even recompiling. 

@ Complete libraries. We have 
implemented all the library routines 
described by Kernighan and Ritchie (the 
informal C standard), and all the library 


SAS is the registered trademark of SAS Institute Inc., Cary, NC, USA. La 


routines supported by Lattice (except 
operating system dependent routines), 
plus extensions for dealing with 370 
operating environments directly. 
Especially significant is our 
byte-addressable Unix®-style I/O 
access method. 

@ Built-in functions. Many of the 
traditional string handling functions are 
available as built-in functions, generating 
in-line machine code rather than function 
calls. Your call to move a string can result 
in just one MVC instruction rather than a 
function call and a loop. 


In addition to mainframe software 
development, you can also use our new 
cross-compiler to develop PC software on 
your IBM mainframe. With our cross- 
compiler, you can compile Lattice C 
programs on your mainframe and generate 
object code ready to download to your PC. 

With the cross-compiler, we also offer 
PLINK86™ and PLIB86™ by Phoenix 
Software Associates Ltd. The Phoenix link- 
editor and library management facility can 
bind several compiled programs on the 
mainframe and download immediately 
executable modules to your PC. 


Tomorrow... 

We believe that the C language offers the 
SAS System the path to true portability and 
maintainability. And we believe that other 
companies will make similar strategic 
decisions about C. Already, C is taught in 
most college computer science curriculums, 
and is replacing older languages in many. 
And almost every computer introduced to 
the market now has a C compiler. 
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i want to learn more about: 


C, the language of 
choice... 


C supports structured programming with 
superior control features for conditionals, 
iteration, and case selection. C is good for 
data structures, with its elegant implemen- 
tation of structures and pointers. C is 
conducive to portable coding. It is simple 
to adjust for the size differences of data 
elements on different machines. 


Continuous support... 

At SAS Institute, we support all our 
products. You license them annually; we 
support them continuously. You get updates 
at no additional charge. We have a 
continuing commitment to make our 
compiler better and better. We have the 
ultimate incentive—all our software 
products depend on it. 


For more information... 
Complete and mail the coupon today. 
Because we've got the development tool for 
your tomorrow. 


® 


SAS Institute Inc. 

SAS Circle, Box 8000 

Cary, NC 27511-8000 

Telephone (919) 467-8000 x 7000 


(1) the C compiler for MVS software developers 
OC) the C compiler for CMS software developers 
©) the cross-compiler with PLINK86 and PLIB86 


today...so l’ll be ready for tomorrow. 


Please complete or attach your business card. 
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Listing One (Text begins on page 46.) 
Screen # 0 
\ jbb 15:47 08/04/87 


GETIMAGE 


Copyright 1987, All Rights Reserved 


by 
J. Brooks Breeden 
Columbus, Ohio 
August 4, 1987 


Loads an EGAPAINT file into video memory 
from within UR/FORTH for subsequent animation, etc. 


Screen # 1 


\ Misc. jbb 13:01 08/04/87 
DOSINT \ fetch level 2 DOS interface 
HCB IMAGEHCB \ create the handle block 

CREATE PALTAB 16 ALLOT \ to hold egapaint's palette 


?MEMREQ ( xl yl x2 y2 - bytes) \ calc. memory req to @BLOCK 
ROT = 24 “ROT SWAP = D4 27-24 + 8 gS 


HEX 
: RESTORE-EGA { - ) \ restore EGA's default mode: 
2 3C4 PC! OF 3C5 PC! \ default map mask 
3 3CE PC! 0 3CF PC! \ default data rotate reg value 
5 3CE PC! 0.3CF PC! \ default write mode 0 
8 3CE. PC! FF SCE PC! ; \ default bit mask 
DECIMAL 
-=-> 
Screen # 2 
\ EGA map mask control jbb 15:37 08/04/87 


HEX 
: READMODEO ( —- ) > 3CE PC! 8.3CF PC! 2 3CE PCc!.0 3CF PC) :; 


\ set map-masks to select active EGA color bit-planes 


: BLUEPLANE Gc <2 30d PEL 3CS.. Pc! ; \ plane.o 

: GREENP LANE (=. 2 304 PCl: 2: 30S PCs \ plane .1 

: REDP LANE (=) 2-364 £Cr 4-305: Pe). 3 \ plane 2 

INTENSEPLANE ( - ) 2 3C4 PC! 8 3C5 PC! ; \ plane 3 

DECIMAL 

--> 

Screen # 3 

\ File control jkb 12:59 08/04/87 

: OPENIMAGEFILE ( “filename - ) 
IMAGEHCB NAME>HCB \ force filename 
IMAGEHCB O RD FOPEN \ open file for reading 
IF ABORT" Can't open file." THEN ; 

: CLOSEIMAGEFILE ( - ) IMAGEHCB FCLOSE DROP ; 

: MAKEIMAGEFILE ( “filename - ) 
IMAGEHCB NAME>HCB \ force filename 
IMAGEHCB 0 FMAKE \ make “normal" file 
IF ABORT" Can't make file." THEN ; 

--> 

Screen # 4 

\ Read EGAPAINT file from disk to video jbb 15:45 08/04/87 


\ To load EGAPAINT disk image into EGA video segment... 
\ set map mask, read bytes from disk, repeat for each plane 


: READBYTES ( - ) \ read 28,000 bytes to video segment 
IMAGEHCB 2?VSEG 0 \ source=handle; dest.= videoseg:offset 
28000 FREADL \ read 28,000 bytes 
DROP ; \ drop flag. 


: READPAINTFILE ( - ) \ read all four planes in sequence... 
BLUEPLANE READBYTES REDPLANE READBYTES 
GREENPLANE READBYTES INTENSEPLANE READBYTES ; 

--> 


Screen # 5 


\ jbb 15:44 08/04/87 


: LOADPAINTFILE ( “filename - ) 
640X350 VMODE CLS \ hi-res 16-color 








OP ENIMAGEF ILE \ Open the file, and 
IMAGEHCB PALTAB 16 FREAD \ read palette data. 

IF PALTAB !PALETTE \ If read was successful, 

THEN \ set palette to new colors. 
READMODEO \ Set read mode 0 and 
READPAINTFILE \ read the bit-plane data. 
CLOSE IMAGEFILE \ Close the file, and 
RESTORE-EGA ; \ restore the EGA defaults. 


Screen # 6 
\ Load the EGAPAINT full-screen image jbb 15:17 08/04/87 
CREATE BARON ,C“ THEFOKKR.IMG" \ orig 112K EGAPAINT disk file 
CREATE FOKKER ,C“ DERFOKKR.IMG" \ new smaller @BLOCK disk file 
CREATE DR.1 3072 ALLOT \ memory req as multiple of 8 
: SAVEDR.1 1 1 106 53 DR.1 @BLOCK ;~ \ get block to memory 
: GETIMAGE BARON LOADPAINTFILE SAVEDR.1 ; \ get orig image>mem 
: SAVEFOKKER FOKKER MAKEIMAGEFILE \ build .img file on disk 
IMAGEHCB PALTAB 16 FWRITE DROP \ include pallete info 
IMAGEHCB DR.1 2904 FWRITE DROP \ write DR.1 mem to disk 


CLOSEIMAGEFILE ; \ glos@: Lt. oat... 
--> 


Screen # 7 


\ CHECKOUT JUNK jbb 16:07 08/04/87 
: CKl HR DR.1 267 148 ! BLOCK 
277 156 361 192 FRAME \ Fokker image limits 
LTBLUE FG 
267 148 372 200 FRAME \ image area saved 
262 143 272 153 FRAME \ hit zone around CORNER 
314 165 324 175 FRAME ; \ hit zone on Fokxer 


: GUNSIGHT ( - ) ORANGE FG 269 170 369 170 LINE 
319 133 319 274 LINE 319 170 50 circle ; 


: CK CK1 GUNSIGHT ; End Listing One 


Listing Two 


Listing 2. Pseudocode to move a full 112,000 byte image 
from the disk to the screen: NOTE: ALL NUMBERS HEXIDECIMAL 


Set the video mode to graphics mode xx however your language 
does it. 


Open the file using a DOS handle however your language does 
$t: 


If palette data is the first data in the file, 
Then read the palette data and set the new palette. (This 
should be covered in your language's high level routines.) 


Set read mode 0 

Write 5 to port 3CE, then 
write 8 to port 3CF, then 
write 2 to port 3CE, then 
write 0 to port 3CF. 


Set map mask to plane 0 (blue plane) 
Write 2 to port 3C4, then 
write 1 to port 3cS. 


Read 28,000 bytes from the file to A000:0000 however your 
language does it. 


Set map mask to plane 2 (red plane) 
Write 2 to port 3c4, then 
write 4 to port 3CcS5. 


Read 28,000 bytes from the file to A000:0000 however your 
language does it. 


Set map mask to plane 1 (green plane) 
Write 2 to port 3c4, then 
write 4 to port 3cS. 


Read 28,000 bytes from the file to A000:0000 however your 
language does it. 


Set map mask to plane 3 (intensity plane) 
Write 2 to port 3C4, then 
write 8 to port 3Cc5. 


Read 28,000 bytes from the file to A000:0000 however your 
language does it. 


Close the file, however your language does it. 


Restore EGA default values. 

(set map mask default: all planes active) 
Write 2 to port 3C4, then 

write OF to port 3c5. 
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(set data rotate register defauit) 
Write 3 to port 3CE, then 
write 0 to port 3CF. 


(set default write mode 0) 
Write 5 to port 3CE, then 
write 0 to port 3CF. 


(set default bit-mask) 
Write 8 to port 3CE, then 


write FF to port 3CF. End Listing Two 


Listing Three 
Screen # 0 


\ jbb 17:28 07/04/87 


FOKKER.SCR 
A Mindless Game of Motor Skill 
(somewhere over the trenches...) 


NOTE: YOU ABSOLUTELY MUST HAVE CRUISE CONTROL, OR SOME OTHER 
KIND OF KEYBOARD SPEEDUP SOFTWARE FOR THIS TO WORK !!! 


Standard Version 
Copyright (C) 1987, All Rights Reserved 


by 
J. Brooks Breeden 


EGAGRAPH.EXE must be loaded first 


Screen # 1 


\ File control... jbb 13:08 08/04/87 
\ this screen is required to load image initially. 
\ For turnkey, the image is in memory é this scr isn't required 


DOSINT \ level 2 DOS interface 


HCB IMAGEHCB \ create the handle block 
: OPENIMAGEFIILE ( “filename - ) 
IMAGEHCB NAME>HCB \ force filename 
IMAGEHCB O_RD FOPEN \ open file for reading 
IF ABORT“ Can't open file.” THEN ; 


: CLOSEIMAGEFILE ( -— ) 
IMAGEHCB FCLOSE DROP ; 
--> 


\ close, ignore status 


Screen # 2 


\ File control... job 09:49 08/01/87 
CREATE DR.1 3000 ALLOT \ to hold the bit map image 
CREATE PALTAB 16 ALILOT \ new palette of colors 
CREATE FOKKERIMG ,C“ DERFOKKR.IMG" \ name of the image file 

: GETFOKKER \ load binary image from disk to memory 
DR.1 3000 ERASE clean out memory area 
FOKKERIMG OPENIMAGEFILE \ open ‘er up 

IMAGEHCB PALTAB 16 FREAD DROP \ read in palette info 
IMAGEHCB DR.1 2866 FREAD DROP \ read in the image 
CLOSEIMAGEFILE ; \ close the file 


“ 


GETFOKKER \ load the Fokker image during the compile... 
--> \ Note: Obviously, you'd better have the image 
\ file in your directory at this point! 


Screen # 3 
\ Pallette colors jbb 17:10 08/02/87 
FG FOREGROUND ; \ shorthand for LMI's words 


BG BACKGROUND ; 
HR 640X350 VMODE ; 


\ high res EGA 16-color mode 


\ Named colors for the EGAPAINT default pallette 
Q CONSTANT BLACK 8 CONSTANT GREEN 

1 CONSTANT DKGRAY 9 CONSTANT LTGREEN 

2 CONSTANT GRAY 10 CONSTANT CYAN 

3 CONSTANT DKRED 11 CONSTANT LTBLUE 

4 CONSTANT RED 12 CONSTANT BLUE 

5 CONSTANT ORANGE 13 CONSTANT DKBLUE 

6 CONSTANT YELLOW 14 CONSTANT PURPLE 

7 CONSTANT DKGREEN 15 CONSTANT WHITE 


--> 


Screen # 4 


\ utilities jbb 09:53 08/01/87 


TAB ( row col -— ) SWAP GOTOXY ; \ clearer for text 


2 Pons 
\ returns unique IBM keycode for each keypress 


: MYKEY ( - n) KEY DUP O= IF DROP KEY 128 + THEN ; 


: WAIT ( - ) MYKEY DROP ; \ wait for a keypress 
\ vector math... 

: V+ ( a bed --- atc btd) >R ROT + SWAP R> + ; 

: V* (abed <-- a*c b*d) >R ROT * SWAP R> * ; \ net used; 
>: V/ (a bed --- a/c b/d) >R ROT / SWAP R> / ; \ for info.. 
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: S-LINE ( row — ) 
: D-LINE ( row - ) 
--> 


0 TAB 80 0 DO 196 EMIT LOOP ; \ a line 
0 TAB. 80 0 DO 205 EMIT LOOP ; \ dbl. line 


Screen # 5 


\ Random number generator jbb 09:56 08/01/87 
VARIABLE SEED 

@TIME COMBINE SEED ! \ plant seed w/system clock 
random (-n ) 

SEED @ 259 * 3 + 32767 AND DUP SEED ! ; 


\ 0 <= n <= 32767 


: RANDOM ( nl - n2 ) 
random M* 32768 UM/MOD NIP ; 


\ 0 <= n2 < nil 


: BETWEEN ~~ ( lo# hi# - inbetween#) OVER - RANDOM + ; 


: WITHIN? ( n hi# lo# - flag) >R 1- OVER < SWAP R> < AND ; 
--> 


Screen # 6 


\ Fokker movement jbb 14:44 08/06/87 


2VARIABLE CORNER \ xy-coords of up-left corner of fokker box 


-1 1 2EQU RANGE \ range of random fokker movement 


\ add to Baron's excitement by bumping allowed RANGE 
: EXCITEMENT ( — ) RANGE -1 1 V+ 2EQU RANGE ; 


\ leaves random x and y within RANGE by which to move Fokker 
: MOVEFOKKER ( —- n n) RANGE BETWEEN RANGE BETWEEN ; 
: GUNSIGHT ( — ) ORANGE FG 269 170 369 170 LINE 


319 133 319 274 LINE 319 170 50 circle ; 
--> 


Screen # 7 


\ Stick control Jbb 10:05 08/01/87 


\ set gunsight movement based on #key pressed 
?stick ( adr - adr nn) MYKEY 

CASE 199 OF 2 -2 ENDOF 200 OF O -2 ENDOF 
201 OF -2 -2 ENDOF 205 OF -2 O ENDOF 
209 OF -2 2 ENDOF 208 OF OQ 2 ENDOF 
207 OF 2 2 ENDOF 203 OF 2 OQ ENDOF 

({ otherwise) 0 0 \ leave 0's for V+ to add... 

ROT \ move index to top of stack 

ENDCASE ; \ for ENDCASE to drop... 


: ?STICK ( adr - adr nn) ?TERMINAL- \ key pressed? 
IF ?2stick \ check stick control 


ELSE 0 0 THEN ; \ leave zeros for "v+" 
--> 


Screen # 8 


\ Exclamations! jbb 10:12 08/01/87 
\ These aren't real serious curses; you make up your own! 
CREATE CURSES ,“ Dankeschoen! Welkommen! 
ts? Was ist das? Weiner Schnitzel! 
Sauerbrauten! Knockwurst! 
Weisswurst ” 


Wie Geh 
Bratwurst! 
Sauerkraut! 


: EXCLAMATION \ shout a curse at the user, for distraction 
3 30 TAB CLREOL 3 33 TAB ORANGE FG 
10 RANDOM 20 * CURSES + 20 -TRAILING TYPE ; 

--> 


Screen # 93 


\ Damage report jbb 10:14 08/01/87 
VARIABLE #HITS 


\ # of hits in cockpit zone 
VARIABLE AMMO 


\ rounds of ammunition left 


-HITS GRAY FG 22 44 TAB #HITS ? ; \ print out number of 
-AMMO GRAY FG 23 44 TAB AMMO ? ; \ hits & ammo left. 


s.HIT? CORNER 2@ 143 153 WITHIN? \ y in hit zone? 
SWAP 262 272 WITHIN? AND \ x in hit zone? Both? 


IF 2 #HITS +! .HITS \ Increment hits & show #. 
#HITS @ 4 MOD O= \ For every 4 hits, increase 
IF EXCITEMENT EXCLAMATION \ movement & display curse! 
THEN 
THEN ; 
--> 


Screen # 10 


\ Shooting... jbb 10:19 08/01/87 


2SHOTS 219 349 319 170 LINE 419 349 320 170 LINE ; 


: FIREGUNS \ fire two shots, decrement ammo, show ammo left 
WHITE FG 2SHOTS 
5000 0 DO LOOP \ kill some time 
DKBLUE FG 2SHOTS <-2 AMMO +! .AMMO ; 







(continued on next page) 
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USING EGA SCREENS 


Listing Three (Listing continued, text begins on page 46.) 


: SHOOTING? 2? TERMINAL \ If there is keyboard input... 
IF MYKEY 32 = \ was it the spacebar? 
IF AMMO @ \ Yes, if we have any ammo, 
IF FIREGUNS HIT? THEN \ shoot & check if we hit the 
THEN \ Fokker. 
THEN ; 


--> 


Screen # ll 


\ Explosion jbb 15:01 08/04/87 
: BURST . 320 .6 \ random dots expanding in all four quadrants 
DO 319 I RANDOM + 174 I RANDOM - !PEL 
319 I RANDOM + 174 I RANDOM + !PEL 
319 I RANDOM 174 I RANDOM + !PEL 
319 I RANDOM - 174 I RANDOM - !PEL LOOP ; 


: EXPLODE 3 0 DO BURST LOOP ; \ it pulses the bursts... 


HEX \ clear bios buffer of waiting keypresses 
: CLR-KEY-BUF O0COl regAXx ! 21 INT86 ; 
DECIMAL 


: WAIT-FOR-ESC CLR-KEY-BUF BEGIN MYKEY 27 = UNTIL ; 
--> 

Screen # 12 

\ Win message jbb 17:35 07/04/87 
: WIN \ what happens if you shoot him down! 


WHITE FG EXPLODE DKBLUE FG REVERSE ORANGE FG 6 14 TAB 
-“ What a pilot! You downed the baron with “™ 


100 AMMO @ -.  ." rounds. " 

7 14 TAB 

-" Now it's time to head for home and celebrate. “ 
20 25 TAB 


-“ Press ESC to go home in GLORY. " GRAY FG REVERSE 
WAIT-FOR-ESC ; 
--> 


Screen # 13 


\ Lose message jbb 10:20 08/01/87 
: LOSE \ what happens if you DON'T shoot him down... 
DKBLUE FG REVERSE ORANGE FG 6 14 TAB 
-“ You are a rotten pilot! You waste ammunition, and " 


7 14 TAB 
-“ let yourself get outflown by the bloody Red Baron. " 
8 14 TAB 
.“ Tuck your tail beween your legs and head for home. " 
20 23 TAB 


-“ Now press ESC to go home in SHAME! "“ 
DKBLUE FG REVERSE GRAY FG WAIT-FOR-ESC ; 
--> 


Screen # 14 


\ Setup jbb 10:22 08/01/87 

F: FOKKER \ forward reference 

: SETUP HR PALTAB !PALETTE CLS \ use EGAPaint palette 
DKBLUE BG GUNSIGHT \ paint sky and gunsight 
-1 1 2EQU RANGE \ fokker motion range 
175 375 BETWEEN 104 254 BETWEEN \ random starting points 
CORNER 2! 0O #HITS ! 100 AMMO ! \ setup the variables 
GRAY FG 
22).34 TAB 12% -€. OF HITS: “¢: HITS \ show hits 
23 34 TAB .“ AMMO LEFT: " .AMMO ; \ show ammo 

--> 


Screen # 15 


\ Major loop jbb 10:23 08/01/87 


: DOGFIGHT SETUP \ get ready... 
BEGIN DR.1 \ address of fokker bitmap 
CORNER 2@ MOVEFOKKER V+ \ t+random movement 
?STICK V+ (.+-=:ade x y) : \ +stick control 
2DUP CORNER 2! !BLOCK \ update corner; show plane 
SHOOTING? #HITS @ 19 > \ check hits in pilot zone 
IF WIN EXIT THEN \ blow up plane; you win. 
AMMO @ O= \ out of ammo? 
IF LOSE EXIT THEN \ you lose... 
GUNSIGHT \ redisplay gunsight 
AGAIN ; 


--> 


Screen # 16 


\ Options jbb 10:23 08/01/87 
: D-LINES 

B/W CLS PURPLE FG 7 D-LINE 19 D-LINE RED FG : \ double lines 
: .OPTIONS D-LINES 

6 0 TAB .“ Fokker" 6 36 TAB .“ OPTIONS" LTBLUE FG 

11-31 TAB.“ Fl. “© GRAY FG -" Instructions" LTBLUE FG 





13 31 TAB .“ F2. “ GRAY FG ." Play" LTBLUE FG 
15 31 TAB .“ F10. “ GRAY FG .* Exit" 
20 O TAB ; 

--> 


Screen # 17 


\ Credits jbb 13:25 07/31/87 
- CREDITS D-LINES 6 36 TAB ." FOKKER" LTBLUE FG 8 23 TAB 
-" (A Mindless Game of Motor Skill)" 11 20 TAB RED FG 
-"" Somewhere over the trenches in France..." 
GRAY FG 14 22 TAB 
-“ Copyright 1987, All Rights Reserved" 15 38 TAB ." by " 
16 32 TAB .“ J. Brooks Breeden" 17 32 TAB .“ Columbus, Ohio" 
ORANGE FG 20 26 TAB ." Press Any Key to Continue..." 
23 11 TAB LTBLUE FG 
-“ Written in UR/FORTH from Laboratory Microsystems, Inc." 
24 9 TAB 
-" Fokker Dr.1 created with EGAPAINT from RIX Softworks, Inc." 


’ 


--> 


Screen # 18 


\ Help... jbb 13:24 07/31/87 
: HELP1 B/W CLS RED FG 1 20 TAB ." Your Mission:" 
PURPLE FG 2 S-LINE LTBLUE FG 3 20 TAB 


-“ Your mission is to down the Red Baron with 20 hits" 
4 20 TAB 


.“ in the cockpit area of his Fokker Dr.1 triplane." 
5S 20 TAB 


-“ When you shoot, the Baron gets excited, and takes" 
6 20 TAB 


-“ evasive action. You have 100 rounds of ammo left," 
7 20 TAB 


-“ and your guns have a tendency to jam..." ; 
--> 


Screen # 19 


\-Reip.... jJbb 13:21 07/31/87 
: HELP2 RED FG 9 20 TAB 
-“ To play...“ PURPLE FG 10 S-LINE LTBLUE FG 11 20 TAB 
.“ The cursor keys control the gunsight like a joystick." 
12 20 TAB 
-“" The up arrow key pushes the stick forward. The down" 
13 20 TAB 
-" arrow key pulls back on the stick. Left, right, and" 
14 20 TAB 
-“ diagonal keys move the stick as you would expect." 
16 20 TAB 
.“ Fire by holding down the space bar." 
21 20 TAB 


-" Press Ctrl-Break to quit at any time." ; 


Screen # 20 


\ Warning... jbb 10:24 08/01/87 
: WARNING D-LINES 6 34 TAB .“ WARNING!!!" LTBLUE FG 
S20: TAB ic" 


-"" YOU ABSOLUTELY MUST HAVE CRUISE CONTROL, " 
10 20 TAB .“ QUICKEYS, OR OTHER TSR KEYBOARD SPEED-UP" 
11 20 TAB ." RESIDENT IN ORDER TO RUN THIS PROGRAM !! 1! 


13 20 TAB .“ If you do not have a keyboard speed-up" 

14 20 TAB ." program resident, press Ctrl-Break to exit." 
16 20 TAB ." If a keyboard speed-up program is resident..." 
ORANGE FG 20 26 TAB .“ Press Any Key to Continue..." 


- HELP HELP1 HELP2 ORANGE FG 23 26 TAB 
." Press Any Key to Continue..." WAIT FOKKER ; 


--> 


Screen # 21 


\ Main resolved jbb 10:24 08/01/87 


INTRO CLS B/W .CREDITS WAIT 20 0 TAB CLREOL ; 
R: FOKKER .OPTIONS MYKEY \ resolve FOKKER forward reference 
CASE 187 OF .HELP FOKKER ENDOF \ show instructions 
188 OF DOGFIGHT FOKKER ENDOF \ do the dogfight 

196 OF BYE ENDOF \ exit to DOS 


DROP FOKKER \ recurse to options 
ENDCASE ; 


: MAIN HR PALTAB !PALETTE WARNING INTRO FOKKER ; 


End Listings 
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PC- Technician” 

Professional Level Personal Computer Diagnostic System 
PC-Technician is an ‘advanced’ type diskette-based diagnostic system that 
provides comprehensive testing for each individual system component. Infor- 
mation about the testing and the results are presented via text and graphics 
on the system’s display. PC- Technician provides on-line help displays and 
information about the system’s configuration. 
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* Product Code T01 (for PC, PC XT) $195.00 in 
- Product Code T51 (for PC AT) $245.00 cies 
- Product Code T90 (for PC, PC XT, PC AT— $395.00 eOKe RY 
TO1 and T51 in the same carrying case) * : Ti torrt, Myf 
T90—PC, PC XT, PC AT Dee 

A FREE Evaluation Diskette is available—see the coupon below. () Fan sat hy 
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Personal Computer Diagnostic ROM Module 

WindsorPOST is designed to be used when the system is malfunctioning such 
that its ‘power-on-self-test’ (commonly called POST) does not complete 
satisfactorily and a diskette-based diagnostic product, such as PC-Technician, 
cannot be loaded and used for troubleshooting. 


WindsorPOST temporarily replaces the system’s BIOS ROM module. When 
installed, its LED indicates if the proper amount of power is at the BIOS 

ROM socket. It then performs 36 tests on the circuits and electrical components 
on the system board, the system memory up to 640K, and the color or mono- 
chrome video display memory. Errors are identified down to the module (chip) 
level in three full displays of information on the system’s video display unit. 


WindsorPOST is intended for those service operations where specific identi- eg 
fication of failing components is required and where soldered components are ee 
removed and replaced. WindsorPOST has been in use in the field for over one 
year and performance data indicates that it properly identifies the failing PO1—PC, PC XT 
component at least 70% of the time. 


WindsorPOST is currently available for use on IBM PC’s and PC XT’s (a PC AT 
type product is under development) and those compatible systems where 

the system board circuitry and components are extremely similar to the IBM 
standard. WindsorPOST comes with a 30-day money back guarantee. 
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BASIC 


CPascal 
translator 


Ready to run, Syntax error free code 
Structured, Indented, Scoped 
Random file, Grapics are supported 
Free Basic Runtime Library(Source code) 
200 Page manual,Demo disk 
BAS_C for Microsoft, Turbo,Lattice,Instant,etc 
BAS_PAS for Turbo Pascal 
Gotoless Conversion 
Box 835910,Richardson, [X75083 
Phone(214)404-1404 
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CANADA’S 


SOURCE FOR C 





- Canadian Sales 
- Canadian Service 
- Canadian Technical Support 
- Canadian Product Knowledge 





We specialize in programming & development software 





LIFEBOAT « LATTICE e GREENLEAF « PHOENIX 
SOFTCRAFT ¢ MICROSOFT « BLAISE « ESSENTIAL 
AGE OF REASON « DESMET « AZTEC 
MARK WILLIAMS « GIMPEL » ROUNDHILL » GSS 
HALO - FAIRCOM « RAIMA « INTEL « etc. « etc. « 





rer Call for full price list —Dealer enquiries welcome 





We know our products—we use them! 


SCANTEL SYSTEMS LTD. 


801 York Mills Rd., Don Mills, Ont., M3B 1X7 
(416) 449-9252 
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TURBO PASCAL GRAPHICS 


Listing One 
(Text begins on page 38.) 


@Listing 1@. The @SaveRegion@ Procedure copies any 
upright rectangular graphics screen region into 

a buffer, @buff@, where its upper-left (x1l,y1) 

and lower-right (x2,y2) screen coordinates are 
specified. GETMEM is used to allocate memory, 
rather than the standard NEW, because the buffer 
size needs to be computed at run time. 


{The following code is the property of H.D. 
Callihan, University of Pittsburgh at Johnstown, 
Johnstown, Pa. Personal use is encouraged. Feel 
free to make copies for distribution to other 
personal users. Commercial use is prohibited 
without written permission and an 

appropriate license. 


(requires the CRTmode function in 
file: CRTMODE.INC) Purpose: 
save and restore a current screen 
region in low- or hi-res mode. 
Date: 6/22/87 
Author: H.D. Callihan, Ph.D. (C) Copyright 1987 
Applic: Turbo V3.0 for IBM PC and true compatibles. 
File: GREGION4.INC 
} 


Version: 4 


TYPE 
buffermemory = ARRAY[1..3] OF INTEGER; 
bufferaddress = “buffermemory; 


PROCEDURE SaveRegion(VAR buff : bufferaddress; 
xl,yl, {upper left} 
x2,Y2 {lower right} 
: INTEGER) ; 
{-c<------- Local functions to SaveRegion----------- } 
FUNCTION max(a,b: INTEGER) : INTEGER; 


BEGIN 

IF a<b THEN max := b ELSE max := a 
END; 
FUNCTION min(a,b : : INTEGER; 
BEGIN 

IF a<b THEN min := a ELSE min := b 


INTEGER) 


END 
(ereee=---- End local functions -------<-<<-<--------- } 


VAR width, height, size : INTEGER; 
dummyl, dummy2 : BYTE; 

BEGIN {SaveRegion} 

{correct for negative x and y} 

x1 := max(x1,0); x2 := max(x2,0); 

yl := max(yl,0); y2 := max(y2,0); 


{correct for large y} 
yl := min(yl1,199); y2 :=— min(y2,199); 


{compute height of image in pixels} 
height := ABS(yl~-y2) +1; 


CASE CRTmode(dummyl, dummy2) OF 
{ dummyl and dummy2 not used } 
4,5: {one of the low resolutions} 
BEGIN 
xl := min(x1,319); x2 :=— min(x2,319); 
{compute width of image in pixels} 
width := ABS(X1-X2) +1; 


{compute size of buffer need to store image) 
size := ((width+3) DIV 4) * height * 2 + 6; 


GETMEM (buff, size); 
GETPIC(buff*, xl,yl,x2,y2) 
END; 


6: {high resolution} 
BEGIN 
x1 := min(xl,639); x2 :=— min(x2,639); 
width := ABS(xl-x2) +1; 
size := ((width+7) DIV 8) * height + 6; 
GETMEM(buff, size); . 
GETPIC(buff*, xl,yl,x2,y2) 
END; 
ELSE WRITE(*G); {unacceptable mode} 
END {CASE} 
END; {SaveRegion} 





es = 
Listing Two 
@Listing 2@. The @CRTmodeé function determines which 
display mode is currently active. 
code as well as two arguments which determine text row 
and column information if a text mode is active. 
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End Listing One 


It returns an integer 








FUNCTION CRTmode(VAR char columns, 
display page : BYTE) : BYTE; 


{Returns CRT mode of operation. It uses registers and 
software interrupt 10h to BIOS video services. Also 
returns the number of character columns in the current 
video mode (80 or 40) and the video display page as 
VARiable parameters. 


Version: 2 

Author: H. D. Callihan, PhD, UPJ 
Date: 2/29/87 
File: CRTMODE.INC 


VIDEO MODES: 
0 = 40x25 monochrome 
1 = 40x25 color 
2 = 80x25 monochrome 
3 = 80x25 color 
4 = 320x200 color graphics (40x25 text) 
5 = 320x200 mono graphics (40x25 text) 
6 = 640x200 b/w high res graphics (80x25 text) 


The following values are returned on the AT&T 6300 for 
superres mode (640x400). 


$40 = 640x400 mono superres graphics 
(80x25 high quality text) 


$48 = 640x400 mono superres graphics 
(80x50 tiny text) 


Register Input : (AH) <-- OFh 
Register output: (AL) --> current mode 
(AH) ~-> number of character 
columns on screen 
(BH) --> current active display page 


Uses software interrupt 10h for BIOS video service. 
} 


TYPE regpack = RECORD 
ax, bx, cx, dx, bp, si,di,ds,es,flags: INTEGER 
END {regpack}); 


VAR dosreg : regpack; 


BEGIN {CRTmode} 
WITH dosreg DO 
BEGIN 
{set high byte $0F for register input} 
ax := SOFOO; 
{ $0OF = 00001111 binary} 


INTR($10, dosreg); {software interrupt 10h} 
CRTmode := LO(ax); {mask low byte} 
char _ columns := HI(ax); {mask high byte} 
display page := HI(bx) {mask high byte} 
END 
END; { CRTmode } 


End Listing Two 


Listing Three 


@Listing 3@. The @RestoreRegion@ procedure copies any 
upright rectangular graphics screen region froma 
buffer, @buff@, previously saved by @SaveRegion@ where 
its lower-left screen coordinates (x,y) are specified. 
FREEMEM is used, rather than the standard DISPOSE, 
because the buffer size needs to be computed at run 
time. 


PROCEDURE RestoreRegion 
(VAR buff : bufferaddress; {pointer} 
x,Y : INTEGER; {lower left corner} 
freeup : BOOLEAN); {freemem after restore} 


VAR width, height, resolution, size : INTEGER; 
x_Ok, y ok : BOOLEAN; 
BEGIN 
resolution := buff*[1]; 
width := buff*[2); 
height := buff*(3]; 





{check screen boundary y limits} 
y_ok := (y-height+1 >= 0) AND (y < 200); 


CASE resolution OF 
2: {low} 
BEGIN 
{check x limits} 
x ok := (x >= 0) AND (x+twidth-1 < 320); 


IF x_ok AND y ok THEN 
BEGIN 
PUTPIC (buff*,x,y); 
IF freeup THEN 
BEGIN 
size := 
((width+3) DIV 4) * height * 2 + 6; 
FREEMEM (buff, size) 





(continued on next page) 
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At Rainbow Technologies, we think protecting 
software developers’ investments is very serious 
business. That’s why we designed the first fully 
effective security solution for software running on 
PCs and other computers. 


Our family of virtually impenetrable Software 
Sentinel hardware keys provides the highest level of 
software protection the developer can get. While 
remaining invisible to the end user. 


Take a look. 


Key Sentinel Family Features. 


Prohibits unauthorized use of software 9 No need 
for copy protection 9 Unlimited backup copies 9 
Virtually unbreakable 9 Pocketsize key 9 Trans- 
parent operation 5 Transportable 





© Higher level language 
Software interfaces included 
Sentinel. © Runs under DOS on 


PC/XT/AT and compatibles 
O Parallel port version only _ 






© Runs under DOS and Xenix, 
on IBM PC/XT/AT an 
compatibles - 

© Algorithm technique 
(Never a fixed response) 

© Serial or parallel port version 
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Listing Three 
(Listing continued, text begins on page 38.) 


END 
END 
END; 
1: {high} 
BEGIN 
x Ok := (x >= 0) AND (xtwidth-1 < 640); 
IF x_ok AND y ok THEN 
BEGIN 
PUTPIC (buf f*,x,y): 
IF freeup THEN {free the buffer} 
BEGIN 
size := 
((width+7) DIV 8) * height + 6; 
FREEMEM (buff, size) 
















END 
END 
END; 
ELSE WRITE (*G*G) 
END {CASE} 






END; {RestoreRegion} 





End Listing Three 












Listing Four 





@Listing 4@. The @FreeBuffer@ procedure permits memory to 
be freed dynamically without displaying the image on the 
screen. Like @RestoreRegion@é, it also requires that the 
size of the memory block be computed based upon the 

block previously saved by @SaveRegion®é. 









PROCEDURE FreeBuffer ( VAR buff : bufferaddress ); 





VAR resolution, width, height, size : INTEGER; 






BEGIN 
resolution := buff*([1]; 
width := buff*[2); 
height := buff*{3); 







CASE resolution OF 
2 : {LOW} 
size := ((width+3) DIV 4) * height * 2 + 6; 
1 : {HIGH} 
size := ((width+7) DIV 8) * height + 6; 































M Street Soltware 


SCRUTINY 
Advanced symbolic debugger. 


Multi-language: compatible with Turbo Pascal, 
Microsoft Assembler, others. 

Multi-DOS: works with all MS-DOS/PC-DOS 
computers. 

Multi-level: debug at source level and machine level, 
separately or together. 

Multi-display: debug character-mode and graphics- 
mode programs, with movable debug windows. 
Multi-chip: support for 8086, 80186, 80286, 80386. 


Fast 80386 “memory breakpoints” (stop program 
when specified variable is accessed or modified). 
Scrutiny/Master $99.95 
for debugging Turbo Pascal, Microsoft Assembler, 
and other languages. 
Scrutiny/Turbo Special price! $49.95 
for debugging Turbo Pascal only. 
VISA/MC AMEX accepted. In Texas please add sales 
tax. Outside of North America add $10 per item 
shipping. 
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M Street Software 
39400 E. Mockingbird Lane Suite 114 
Dallas, Texas 75206 
214-827-4908 


Information also available via our 24 hour 300/1200 
modem: 214-669-1882. 





ai CIRCLE 275 ON READER SERVICE CARD 


TURBO PASCAL GRAPHICS 





ELSE WRITE(*G*G%*G) 
END; {CASE} 
IF resolution IN [1,2] THEN FREEMEM(buff, size) 


END; {FreeBuffer) End Listing Four 


Listing Five 


@Listing 5@. The procedure, @SaveBlockToDisk@, facilitates 
saving a screen region to disk that was previously 

stored in a memory buffer using @SaveRegion@. The file 
name is passed into the procedure as a string argument. 
@GetBlockFromDisk@ is a procedure which does the opposite 
by retrieving a block from disk and placing it into 
contiguous memory located at @buffer@. @Resolution@ and 
@size@ are also computed and returned as a matter of 
convenience. This recovered region may now be placed 

onto the screen using @RestoreRegion®é. 


{H D CALLIHAN, UNIVERSITY OF PGH AT JOHNSTOWN, 1987} 


TYPE FileString80 = STRING([80]; 
PROCEDURE SaveBlockToDisk 
( FileName : FileString80; 
buffer : bufferaddress {mem address of block} 
): 


VAR 
size, resolution, width, height : 
FileVariable : FILE; 


INTEGER; 
{untyped file} 


BEGIN 
resolution := buffer“*[1)]; 
width :=— buffer*[2]; 
height := buffer (3); 


CASE resolution OF 


1 : {HIGH} 
size := ((width + 7) DIV 8) * height + 6; 
2: {LOW} 


size := ((width + 3) DIV 4) * height *2 + 6; 
ELSE WRITE (*G*G*G%*G) 
END; {CASE} 


IF resolution IN [1,2] THEN BEGIN 


SAVE TIME and ADD PRODUCTIVITY 
with 


AD-SHELL 


While you are in the MIDDLE of PROGRAMMING, with 
XO—SHELL you can 


VIEW ANY FILE, and transfer ANY SECTION to the 
PRINTER or into your EDITOR 


Do SOURCE-LISTING while you are in your application 


Do the MOST EFFICIENT CROSS—REFERENCING without 
leaving your editor 


OBTAIN KEY CODES without a reference or going through 
difficult interpretation 


INSERT GRAPHICS CHARACTERS in your source code 


View, copy and erase DIRECTLY from a SCROLLABLE 
DIRECTORY DISPLAY, plus 


DOS COMMAND EDITOR lets you retrieve, edit and 
reexecute previous DOS commands. It also PREVENTS 
ACCIDENTAL HARD DISK FORMATTING. 


To order XO-—SHELL for PC/MS-DOS, send $69 plus $5 


shipping and handling, or call 


1-800-635-5011 


(outside MA) 


WYTE CORPORATION 

701 Concord Avenue 

Cambridge, MA 02138 
Tel. (617) 868-7704 
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ASSIGN ( FileVariable, FileName ); 
REWRITE ( FileVariable ); 


BLOCKWRITE ( FileVariable, buffer*, 1+(size-1) DIV 128 3 


CLOSE ( FileVariable ) 
END {IF} 
END; { BlockSave } 


PROCEDURE GetBlockFromDisk 


( FileName : FileString80; 
VAR buffer : bufferaddress; 
VAR resolution, {l=hi, 2=1lo} 

size : INTEGER ); 


VAR 
FileVariable : FILE; 
width, height, 
SizeOfFile : INTEGER; 
{number of 128-byte records in block file} 


BEGIN 
ASSIGN ( FileVariable, FileName ); 
RESET ( FileVariable ); 
SizeOfFile := FILESIZE ( FileVariable ); 


IF SizeOfFile <> 0 THEN BEGIN 
GETMEM( buffer, SizeOfFile * 128 ); 
BLOCKREAD ( FileVariable, buffer*, SizeOfFile ); 
resolution := buffer*{1]; 
width := buffer*[2]; 
height := buffer~[3]; 
CASE resolution OF 


1 : {HIGH} 
size := ((width+7) DIV 8)*height +6; 
2: {LOW} 


size := ((width+3) DIV 4) *height*2 +6; 
ELSE WRITE (*G*G*G*G%G) 
END {CASE} 
END; {IF} 
CLOSE ( FileVariable ); 
END; {GetBlock)} 


Listing Six 


End Listing Five 


@Listing 6@. The following program demonstrates the use 
of @SaveRegion@ and @RestoreRegion@. Figure 2 contains 
images saved in @buffer@ and @buffer2é@. 


PROGRAM Test_SaveRegion_and RestoreRegion; 





{$I graph.p} {--> extended Turbo Graphics} 


{$I crtmode.inc} {-->  Callihan function to check 
current crt mode} 

{$I gregion4.inc}) {--> Callihan save and restore 
region Turbo Code 
and FreeBuffer code} 


VAR i: INTEGER; 
buffer, 
buffer2 : bufferaddress; 
{TYPE declared in the above Callihan file. } 


{The TYPE must be used here for SaveRegion, 
RestoreRegion, and FreeBuffer to work. } 


BEGIN 
GRAP HCOLORMODE; {Pick your resolution} 
{ HIRES; } { use only colors 0 and 1 if this is used} 


GRAPHWINDOW (50, 100, 200,180); 
{pick window: (50,100) to (200,180)} 


FILLSCREEN (2) ; 
{clear current window to green=1, black=0,etc. } 
{red=2, yellow=3 } 


{Now, draw lines in black=0, green=1, etc.} 
{draw a nice border around the window} 

DRAW (148,78,148, 2, 3): 

DRAW (146, -2, . 2;.:2, 3)2 

DRAW( ‘2,5 2,. ..25'18,: 3).2 

DRAW( 2,78,148,78, 3); 


{Now, let's draw a couple circles in the window 
with center and radius determined by a loop index. 
Use color as last parameter.) 
FOR i := 10 TO 25 DO CIRCLE(3*i, 2*1, 1, 1); 
READLN; {wait for user to press return} 
SaveRegion(buffer, 0,0,150,80); 
{saves in current window coords} 
{151 pixels wide by 81 high } 


{ GRAPHCOLORMODE; } {this call clears and resets 
window to full screen} 


FILLSCREEN (0); {clear window to black, 


don't reset to full screen} 


(continued on next page) 


copy protection and 
customer satistaction? 


here's a better way to protect your software. 
It's called the Secom Key, and it works. 


[_] The Key is completely transparent to the 
end user. 


[_) Won't interfere with peripheral operations. 
[_} Doesn’t occupy the disk drive. 

(_) The Key allows unlimited backup copies. 
[_] Makes site licensing easy and auditable. 
(_) Fasily installed. Uses only 1000 bytes. 

[_} Over 60,000 have been sold worldwide. 
[_} Same size as RS-232 plug. 

(_) Available in quantities for as low as $19.95. 





or more information, contact 
Secom Information Products Co. 


500 Franklin Square 
1829 East Franklin Street 
Chapel Hill, NC 27707 


The Secom Key... 
for real 

software 
protection. 


Secom Information Products Company 


A Subsidiary of Secom General Corporation 


Call Toll-free 1-800-843-0413 
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can plot your 
ata In 

publication 

quality 












on 

. *linear, log, polar plots 
ebar charts, Smith charts 
e3D curves, 3D surfaces 
°6 curve types, 8 markers 
e14 fonts, font editor 
e4096 x 3120 resolution 


GraphiC” VTEK™ 


DEC™ VT100/VT52 
and Tektronix™ 
4010/4014/4105 
Terminal Emulator 


. ©20 user-defined keys 
escroll back buffer 
ehardware 132 columns 
eKermit and XMODEM 
eup to 800x600 screen 
resolution on EGAs 
5 °zoom, pan, window plots 
e"hot key" to DOS 


your IBM PC Silo hela ls sup- 


eANSII extensions to 

VT 100 for multi-color text 
escrolling VT100 window 
on graphics screen 


$150. Site and source code 





MOST HARDWARE IS SUPPORTED 
Scientific Endeavors Ci orporatian 


Route 4, Box 79 Kingston, TN 37763 (615) 376-4146 








Listing Six 







READLN; 


















READLN; 
{ 


HIRES; } 


READLN; 






READLN; 


®zoom, pan, window plots licenses available 
ehigh resolution printer ares 
and plotter dumps in color ™ 
Over 150 Cand Assembler 8B al - D / T END: {for} 
ee pricey acti Our new binary editor for ee 
$395 with source code programmers - $29 TEXTMODE 
For personal use only ce 


CIRCLE 210 ON READER SERVICE CARD 


SemiDisk* | Ag 
has an —=attractivea 
personality. 


“A while back | got a SemiDisk to help me with 
my database work. A SemiDisk is like a RAM- 
disk only a whole lot better. It doesn’t sit in my 
main or EMS memory, and, using the Battery 
Backup, it's like permanent storage. 


“That SemiDisk makes light work of the jobs 
that were sending my hard disk to an early 
grave. And SemiDisk has no head to crash; 
no moving parts to wear out. With all the time 
it saves me, | figure it paid for itself in just a 
couple of months. 


‘Then | heard programs like Microsoft Win- 
dows could use my SemiDisk for temporary 
files instead of using EMS. So | moved them 
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over to the SemiDisk, too. The quiet speed of 
it is almost elegant! 


“My boss wanted to try my SemiDisk on the 
company LAN server, but | told him to get his 
own. A couple of days later, he was wearing 
a grin as big as mine. | guess he likes his 
SemiDisk too. 


“One morning | booted up my computer and 
there was my word processor waiting for me 
on the SemiDisk. | swear | didn’t put it there! 
After | tried it, | knew it was there to stay. 


“Meanwhile, I've found a new use for my hard 


disk, too. It's great for backing up my 
SemiDisk!” 
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TURBO PASCAL GRAPHICS 


(Listing continued, text begins on page 38.) 


RestoreRegion (buffer,0, 80, false); 
{Restores in current window coords } 
{at the lower left point 0,80 } 
{but does not free the buffer. } 


GRAP HCOLORMODE; 


RestoreRegion (buffer, 0, 80, false); 


FOR i := 1 TO 10 DO 
{let's get fancy} 
RestoreRegion (buffer, 
150 - 8*i, 200 - 10*i, false); 


SaveRegion (buffer2,0,0,319,199); 
{Use buffer2 for background} 
FILLSCREEN (0) ; 
FOR i := 1 TO 10 DO BEGIN 
RestoreRegion (buffer, 10+4*i, 200-5*i, false); 


RestoreRegion (buf fer2, 0,199, false) 
{Restore background} 


{Return to the standard text screen} 


ewww wnns Per ennn= 








{Pick resolution again} 








End Listings 





See 


pee tesa es 


I/O mapped SemiDisk goes in standard PC, XT or 
AT expansion slot. Priced at just $495 for 512K, 
$795 for 2Mb. Battery Backup $130. Up to 8Mb 
per drive. Call or write for further information or 
to place an order. 


ae Sere ne PRES ae oe a PETS 
fo] es 

“SemiDisk_ 

End the waiting. 

SemiDisk Systems, Inc. 

P.O. Box GG 


Beaverton, OR 97075 
(503) 626-3104 
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C CODE FOR THE PC 


source code, of course 
C Source Code 


Bluestreak Plus Communications (two ports, programmer’s interface, terminal emulation) ... . $400 
Greenleaf Data Windows (windows, menus, data entry, interactive form design). . ...... . $315 
Barcode Generator (specify Code 39 (alphanumeric), Interleaved 2 of 5 (numeric), or UPC) ... $300 
GraphiC 4.0 (high-resolution, DISSPLA-style scientific plots in color & hasdcopy) nals sie a BO 
Vitamin C (MacWindows) .. . ee MRE 8 
Greenleaf Communications Library fintesrapt tide: wiedine opuinel: XON-XOFF) i Baht at igh a 
Greenleaf Functions (296 useful C functions, all DOS BOPVICCRY a) a le oy ow Res bee a 
Essential C Utility Library (400 useful C fengticua| ye ENS ste 4 ‘ ge Qk 
Essential Communications Library (C functions for RS-232- based dinthitmadtoatiins sabes) a bal otal op 
PC/IP (CMU/MIT TOP/IP ituplementation for: PGs)....) oe ve ee ae ed Le eon 2 
B-Tree Library & ISAM Driver (file system utilities by Softfocus) ge Gan pe MGS a? ee bars, eae ey eek ee 
The Profiler (program execution profile tool) . . ... 5 ate hE dled ad ial bad 5 
Entelekon C Function Library (screen, graphics, Sb ebiansld: baie’ envi ie: Bani My tater ote oa 2 oe 
Entelekon Power Windows (menus, overlays, messages, alarms, file handling, etc. eee » e100 
QC88 C compiler (ASM output, small model, no longs, floats or bit fields, 80+ function hia) at’ BBO 
CBTree (B+tree ISAM driver, multiple variable-length keys) . . . Peta US cia Ye A oes VR ae Ee See 
ME (programmer’s editor with C-like macro language by Magma Séfiware) echt hay tee eh A 
Wendin PON X Operate System ciel ss a ae bi es ek ee EO OE ee ae 
Wendin, PC'V MS Operating System Shell... ow cbs os 4 al ated vy Rem wig). weal te oohie SO 
Wendin Operating System Construction Kit .. oe pee, Nik eae ph tile OR kas cate De 
EZ_ASM (assembly language macros bridging C anid MASM) . Wok! edhe Be 1g 2 Sh gid Oa adel, ier sat oo ea aaa 
Multi-User BBS (chat, mail, menus, sysop displays; uses Galacticomm reheat card): bee ar ae Se ae 
Heap Expander (dynamic memory manager for expanded memory) ............... $50 
Make (macros, all languages, built-in rules) .. . Spee, Teche Sd amh eee 
Vector-to-Raster Conversion (stroke letters & Pelsesnise 4010 nodes i binned) i ih sie 4 nile eet teste me 
Coder’s Prolog (inference engine for use with C programs) ..... . fe te GWE oe SE al Oe eee 
PC/MPX (light-weight process manager; includes preemption and dence packages) Bese ated. Wea 
Biggerstaff’s System Tools (multi-tasking window manager kit) .........4..4.4..... $40 
TELE Kernel (Ken Berry’s multi-tatkimg kermel) 9... 3. 6 5, ede ce Be ee eR BBO 
TELE Windows (Ken Berry’s window package) . . . . fe 3 MS aed be ei ao ee 
Clisp (Lisp interpreter with extensive internals aohunaatnbiaad) oe fan pela Spa mcctey ce einen ae 
Translate Rules to C (YACC-like function generator for rule-based systenis) nid SeaY Jk Wotaclgt ee tlt eee eee 
6-Pack of Editors (six public domain editors for use, study & hacking). .........2.2... $30 
ICON (string and list processing ear Version 6 and ak Stk & Ch tn “oe age oa cee neta nae 
LEX (lexical analyzer generator) . . Bs ae i, ha eras 
Bison & PREP (YACC workalike parser concen & wusbake grammar : peeiedior wy Se. Gt ae eee 
C Compiler Torture Test (checks a C compiler against K&R) .........2..2.2.2.2.2. =. $20 
PKG (Wask.to-task pratcsal package}: * oS pats bal ees oa nw, BK Se 
A68 (68000 cross-assembler) . . . ie eRe) eo Sanit, GE iee Te RiP a hey cat nn deena lgta oon ty ee 
Small-C (C subset compiler for 8080 said 8088) ep OR a OR Gm whe WT AL Be eee ke ee 
tiny-c (C subsubset interpreter including the tiny-c shell) JB ah ar aherie an Teh ae waa let he Ben woo ea 
Xlisp 1.5a (Lisp interpreter including tiny-Prolog in Lisp) ..............4.4.4.. . $20 
List-Pac (C functions. for liste, stacks, and quewés)) "0.02 rec ea Ek 
XLT Macro Processor fener! purpose text translator) .. . . al” ea. ate ee 
C Tools (exception macros, we, pp, roff, grep, printf, hash, ducliew! Sonik: Puacal-to-C) oi" dilate tetas eae 
Data 

DNA Sequences (GenBank 48.0 of 10,913 sequences with fast similarity search program) . . . . . $150 
Protein Sequences (5,415 sequences, 1,302,966 residuals, with eee search program) ..... . $60 
Webster’s Second Dictionary (234,932 words) 5 bieg eee 
U.S. Cities (names & longitude/latitude of 32,000 U. s. cities aiedt 6 000 state Sula baatetai te pcibiia tl he, 
The World Digitized (100,000 longitude Wiiciade of world country biounddeien) 5 Red oF tig ee dletok? ig ee 
KST Fonts (13,200 characters in 139 mixed fonts: specify TX or pee ne ouch coset Taek te lah Og ae 
NBS Hershey Fonts (1,377 stroke characters in 14 fonts)... . 2. ee. ee ee ee ee ee ee GB 
U. S. Map (15,701, points of state boundaries)... 6 8 ee ee ee SS 
The Austin Code Works CIRCLE 250 ON READER SERVICE CARD Voice: (512) 258-0785 
11100 Leafwood Lane BBS: (512) 258-8831 
Austin, Texas USA 78750-8409 Email: FidoNet 1:882/12 
Free surface shipping on prepaid orders MasterCard/VISA 


a 


68020 


UNIX COMPATIBLE 
MULTIUSER SYSTEM 


The MPULSE Model 20 
Multi-Processor Design: 


Separating application processing from I/O is a well 
understood goal in multiuser supermicrocomputer 
design. As the real UNIX system bottleneck is disk I/O 
bandwidth, not raw processor speed, LPC has spent a 
great deal of time and development effort in optimizing 
disk I/O throughput. The result is a disk I/O 
subsystem unparalleled in the under $20,000 
microcomputer class. 


A fully asynchronous, high speed DMA channel 
links the MC68020 to the dual MC68000 I/O 
processors. A full 2 Mbytes of I/O processor memory 
is available for disk caching. The disk cache utilizes a 
least recently used, delayed write algorithm to achieve 
hit rates exceeding 90%. 


In addition to disk caching, LPC has extended the 
conventional UNIX caching mechanism with a new 
virtual caching technique, implemented in the kernel 
itself. The Dynamic Kernel Cache (DKC) distributes 
available memory between user processes and the 
internal UNIX cache. This dynamic allocation 
technique allows a much more efficient use of main 
memory with cache efficiency increased to over 80%, 
much higher than the conventional UNIX caching 
mechanism. 


Operating System: 


The MPULSE Model 20 hosts LPC's System V 
operating system, derived from the industry standard 
UNIX System V. The MPULSE System V port is 
tailored to complement the MPULSE hardware while 


retaining compatibility at all levels with the generic UNIX 


System V operating system. Areas of optimization and 
additional features include: 


@ Full demand-paged virtual memory 

@ Kernel portions of the terminal and mass storage I/O 
disciplines are distributed to the appropriate I/O 
processors 

@ Berkeley enhancements 

@ Dynamically distributed ramdisks 

@ On-line Winchester disk bad block replacement 

@ On-line device configuration 

@ True multisector I/O for streaming tape operation 

@ Support for implementing concurrent operating 
systems 


‘| @ General purpose user-accessible SCSI device driver 


@ Automatic bi-directional modem support 
@ MWindows windowing capability 


Base System Includes: 


@ 16 MHz MC68020 host processor 

@ DUAL 12 MHz MC68000 I/O sub-system 

@ 4 Mbytes main memory 

@ 2 Mbytes of dedicated disk cache memory 
® Demand-Paged Virtual Memory 

@ Sophisticated LRU caching algorithm 

@ Dynamic Kernel Cache (DKC) 

@® MWindows 

@ 50 MByte hard disk expandable to 0.5 gigabytes 
@ 800 Kbyte floppy drive 

@ 60 Mbyte cassette tape backup 

@ 8 serial ports expandable to 40 serial ports 
@ LPC System V derived from UNIX System V 
@ Berkeley Enhancements 

@ NCR Tower object code compatibility 


Base System Price: 


$5995.00 
Call (214) 340-5172 


Warranty: 
90 day (extended warranty available) 
15 day money back evaluation period 


LPC Logic Process Corporation 
10355 Brockwood Road Dallas, Texas 75238 


DKC and MWindows are trademarks of LPC. 
UNIX is a trademark of AT&T. 
Tower is a trademark of NCR. 
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Listing One (Text begins on page 62.) 


/* AC implementation Bickel's name comparison 
/* algorithm, CACM 30/3 (March 1987), p. 244. 

/* This is generic C code and should work on any 
/* compiler with no modification. 

/* Jim Howell, March 1987. 


/* This code is placed in the public domain. You are 
/* free to use it in any way you see fit. 


#include <ctype.h> 
#include <stdio.h> 


unsigned char MaskArray [52] ={0, 0x40, /* a 
3, 0x80, /* b 
2; 0x20, /* c 
1, Oxi10, /*.. "@ 
0, Ox20, /* e 
2, Quid, y*. £ 
2, 0x08, y*% § 
1, 0x08, f* Fy 
0, 0x10, fe:4 
3, 0x08, pros 
3,5 ~ 0x20; j= & 
1, 0x04, Fe 
2, 0x04, /* m 
0, 0x08, /* on 
0, 0x04, /* o 
2,. 0x02, i -2 
3, 0x10, IE 
L, “Ox02, J*. =x 
6, :-Ox02, /* s 
0, Ox0l1, JR TS 
1, Oxi, /* u 
3, 0x40, /* vw 
2, .Ox6l, /* w 
3, 0x04, f* x 
3,. 0x02, {* y¥ 
3, Ox01}; /* 2 


/* Demonstrate the algorithm with some short examples. 
main () 
{ 

unsigned char LetterSet0 [4], 


LetterSetl [4]; 


MakeLetterSet ("ecdysiast", LetterSet0); 

MakeLetterSet ("ecstasy", LetterSetl]); 

printf ("The likeness of ‘ecdysiast' and ‘ecstacsy' 
CompareSets (LetterSet0, LetterSetl)); 


MakeLetterSet ("ectoplasm", LetterSetl1); 


printf ("The likeness of ‘ecdysiast' and 'ectoplasm' is %d.\n", 


CompareSets (LetterSet0, LetterSet1)); 


MakeLetterSet ("edcysiast", LetterSet1); 


printf ("The likeness of 'ecdysiast' and edcysiast' is %d.\n", 


CompareSets (LetterSet0, LetterSet1)); 
} /* main */ 


/* Make the letter set by going through the string 
/* one character at a time. 


MakeLetterSet (Name, Mask) 


char *Name; 

unsigned char *Mask; 
{ 

char *pC; 

unsigned char *pM; 
int I, 

Lk; 

pC =Name; 


for (I =O; I <4; ++ I) 
Mask [I] =0; 


while (*pc) { 
/* Use letters only, and convert «/ 
/* uper to lower case. *f 
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SOUNDEX ALTERNATIVE 


*/ 
~/ 
*/ 
oP 
“yf 


“7 


is %d.\n", 


*/ 








if (isalpha (*pC)) { 
pM =&MaskArray [2 *(tolower (*pC) -'a')]; 
Mask [*pM]) |=*(pM +1); 
} 
++ pC; 
} 
} /* MakeLetterSet */ 


/* This particular version constructs a mask by using 
/* a logcal AND of the relevant bytes of the two sets. 
/* The rightmost bit is checked to see if the likeness 
/* score needs to be increased by the appropriate 

/* weight, and the mask is shifted right one bit. An 
/* alternative would be to use a bit mask and to 

/* shift it instead of the name mask. The two bytes 
/* of the least common letters are checked for content 
/* to eliminate any unnecessary calculations. 


CompareSets (Setl, Set2) 
unsigned char *Setl, 
*Set2; 


unsigned char Mask; 
int I, 
Lk; 


Lk =0; 
/* For the first byte. */ 
Mask =Setl [0] & Set2 [0]; 
for (I =O; I <7; ++ I) { 

if (Mask & 0x01) 

Lk +=3; 
Mask >>=1; 
} 


/* The second byte. */ 
Mask =Setl [1] & Set2 [1]; 
for (I =0; I <5; ++ I) { 
if (Mask & 0x01) 
Lk +=4; 
Mask >>=1; 


} 


/* The third byte. */ 
Mask =Setl [2] & Set2 [2]; 
if (Mask) 
for (I =0; I <6; ++ I) { 
if (Mask & 0x01) 
Lk +=5; 
Mask >>=1; 


} 


/* The last byte is more complicated. */ 
Mask =Setl [3) & Set2 [3]; 
if (!Mask) 

return (Lk); 
if (Mask & 0x01) 

Lk +=9; f*..z °° / 
Mask >>=1; 
if (Mask & 0x01) 

Lk +=8; fey AF 
Mask >>=1; 


if (Mask & 0x01) 

Lk +=8; f*. me *s 
Mask >>=1; 
if (Mask & 0x01) 

Lk +=8; /* 4 */ 
Mask >>=1; 
if (Mask & 0x01) 

Lk +=7; /* q */ 
Mask >>=1; 
if (Mask & 0x01) 

Lk +=7; fe -& -*/ 
Mask >>=1; 
if (Mask & 0x01) 

Lk +=6; /* vo */ 
Mask >>=1; 
if (Mask & 0x01) 

Lk +=6; /* b */ 
Mask >>=1; 


return (Lk); 
} /* CompareMasks */ 


End Listings 
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Three in One 


Finally, one program that does all you have been asking 
for in a screen generator. 


ScreenCODE-It's easy, it's fast, and it writes screen 
code in all the popular languages--BASIC, TurboPascal, 
dBase Il, Ill, Ill+, and C. You can build boxes, pull down 
menus, input screens -- everything you need, and you 
spend your time creating, not coding. 


ScreenSNAP--Capture screens from ANY PROGRAM 
and use ScreenCODE to incorporate it into your program. 
Use captured screens as is, or modify them to suit you. 
Now you won't have to reinvent the wheel when you see 
a screen you like. 


SlideSHOW--No screen generator should be without 
this feature. Easier to use than Bricklin, you can build 
prototypes and self running demonstrations. Nothing 
will sell your programming skills better. 


You get all three in one package with 90 day free support 
and our 30 DAY MONEY BACK GUARANTEE. 


Order before December 31, 1987 and get 75 of our most 
popular screen templates FREE - ready to use as is or 
modify as needed. 


Now through the end of the year get all three 
for $1 49.00. (Shipping and handling included.) 


To order call 1(800)223-3419. 


Accept Visa, MasterCard, Check, Money Order, C.O.D. 


Centurion Systems 2724 W. Waco Drive,Waco. TX 76710 
CIRCLE 236 ON READER SERVICE CARD 


Viewports 

Loaddrivers 
Line Types 
Line Fitting 


“ 
TG 
— 
co 
oO 
” 
2 
t= 
a. 
o 
tee 
S 


GRAPHICS LIBRARY 
For PC programmers 


Create custom graphs of any 


type with GEOGRAF’s powerful 
library of subroutines. Plot on 
screen, dot matrix printer, laser 


printer and pen plotter at 
maximum device resolution 
without changing your code. 
FORTRAN version is fully 
compatible with mainframe 
Calcomp graphics library. 
Pry Sides ae Available for FORTRAN and 


Quantity Consumed 
EFFECT OF STIMULANTS ON PROGRAMMERS 


Code Written 


MONEY BACK GUARANTEE 


800-822-2669 


GEOCOMP Corp. 


342 Sudbury Road 
Concord, MA 01742 
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BASIC for all PC compatibles. 
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PUBLIC Lhand1l_ 
EXTERN c_ds,Hhand1l_ 


Lhandl : 
pushf 
push ds 
push es 
push bp 
push si 
push di 
push dx 
push cx 
push bx 
push ax 
mov ds,cs:c_ds 
call Hhand1_ 
pop ax 
pop bx 
pop cx 
pop dx 
pop di 
pop si 
pop bp 
pop es 
pop ds 
popf 
ret 02 

Listing Two 
Hhandl (fake) 
int fake; 
{ 
REGS *regs = é&fake; 


cha 


ser 


r serv; 


v=regs->ax>>8; 


interrupt (NEW16, regs) ; 
if (serv==0) switch(regs->ax){ /* if get-input service, test return */ 


case HOTKEY1: hotl(); 


break; 


case HOTKEY2: hot2(); 


break; 

case HOTKEY3: hot3() 
break; 

eevand so forth... 


} 


Listing Three 


; interrupt (nn, pptr) 


100 


e 
e 


s 
& 


int 


nn; 


REGS *pptr; 
PUBLIC interrupt _ 
interrupt_: 


push bp 

mov bp, sp 
push ds 

mov al,Ocdh 
mov ah, (bp+6] 
mov cs:intnum[(0),ax 
lds bx, [bp+8) 
mov ax, (bx+0]) 
push [bx+2] 

mov cx, [bx+4] 
mov ax, [bx+6] 
mov di, {(bx+8] 
mov si, [bx+10] 
mov es, [bx+14] 
mov ds, (bx+16] 
pop bx 

push bp 


Listing One (Text begins on page 54.) 





TERRUPT HANDLING 


;See text for NEAR/FAR choice. 


Push all registers. The order is 


. 
’ 
e 

’ 


arbitrary so long as it is known to the 
interrupt function in Hhandl(). 


;Adjust DS and whatever other registers 


ae 


your version of C requires. 


7Call high-level handler. 


Restore registers. 


° 
¢ 


. 
? 


These may have been 
altered by the interrupt function 
called by the high-level handler. 


zSubstitute db Ocah,2,0 if a NEAR procedure 


/ 
/ 


* preserve service # from caller's AH */ 
* chain to keyboard i/o bios routine */ 


/* run through the hot keys */ 


;Set up base pointer for stack 


7;Push 


whatever registers need to be preserved 


:CD (do-interrupt) machine code into low byte 
zNow reverse-byte AX reads "CDnn": nn=int# 


;Move 
zLoad 
;Move 
7Push 
; Load 


interrupt code to instruction site 
seg:ofs of struct pointer into DS:BXxX 
structure's AX value into AX 

final BX value onto stack 

the rest, skipping BP & FLAGS 


Pointer gone: must pop BX 


#Somebody else may have stolen things beforehand 





End Listing One 


End Listing Two 
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intnum: dw 
pop bp 
push bx 
push ds 
lds bx, [bp+8] 
mov {[bx+0),ax 
mov [bx+4],cx 
mov {(bx+4],cx 
mov [bx+6],dx 
mov {bx+8],di 
mov {bx+10],si 
mov {bx+14],es 
pushf 
pop {[bx+18] 
pop {bx+16) 
pop [bx+2] 
pop ds 
pop bp 
ret 


Listing Four 


#Scene of crime of self-modifying code 
7Save returned DS & BX so we can use pointer 


Load pointer 
sInverse of sequence above 


#Must consider flags this time 
#Flags into flags slot 

*DS into structure 

sAnd BX 

;Recover preserved registers 


End Listing Three 


;chgint (old, new, lowhandler) 


PUBLIC chgint_. 
chgint_: 

push bp 

mov bp,sp 

push ds 

mov ah, 35h 

mov al, [bp+8] 

int “2ib 

mov ax,es 

Or ax,bx 

jnz error 

mov ah, 35h 


; int old,new, (*lowhandler) (); /*old vector, new, pointer to handler*/ 


#Set up base pointer to stack 


#First check to see if new vector is in use 
#Destination interrupt # into AL 

*Present vector contents into ES:BX 

#Set up for possible error return in AX 
sAre both seg & offset zero? 

;if so, report error and exit 


;Get-vector service again (continued on next page) 


TO ORDER: Return this coupon with your payment to: 


M&T Books, 501 Galveston Dr. Redwood City, CA 94063. 
Or, call TOLL-FREE 800-533-4372 Mon-Fri 8a.m.-5p.m. 
In CA call 800-356-2002 


March 1986 #113 Volume XI, Issue 3 
Parallel Processing—Concurrency and 
Turbo Pascal— What Makes DOS Fast— Minimizing 
Arbitrary Functions—MC68000 vs. NS32000. 


Sept. 1986 #119 Volume XI, Issue 9 
Smooth Algorithms—MS-DOS Directory 
Traversal—Turbo Boards Review —Radix Sort— 
Does Turbo Prolog Measure Up—Crawling Memory 
Test. 


Oct. 1986 #120 Volume XI, Issue 10 

80386 Programming—MS-DOS File Browsing— 
Converting to the 320xx—Modula-2 Compiler 
Review—Factoring in Forth. 


Nov. 1986 #121 Volume XI, Issue 11 
Graphics Routines—The New Graphics Chips— 
Programming Tips in C, Modula-2, Pascal, and 
Ada—68k Graphics. 


Dec. 1986 #122 Volume XI, Issue 12 
Multitasking—32000 Assembler—Comparing 
String Comparisons—Turbo Pascal Procedural 
Parameters. 


Please send the issues circled: 
113 114 115 119 
120 121 122 123 124 125 


Jan. 1987 #123 Volume XII, Issue 1 127 128 129 130 


Annual 68K Issue 68K Mini Forth OS-9 Operating Price: 1 issue-$5.00. 2-5 issues-$4.50 each. 6 or more-$4.00 
System, Mac and Amiga Interface Programming. each. (There is a $10.00 minimum for charge orders.) 


Subtotal 
Feb. 1987 #124 Volume XII, Issue 2 
Editors and Assemblers. Outside U.S., add $.50 per issue 


Mar. 1987 #125 Volume XII, Issue 3 
Data Compression Techniques 


May 1987 #127 Volume XII Issue 5 
Notes on Computer Music—Scientific 
Programming—Command Processors 


June 1987 #128 Volume XII Issue 6 Address 
Handling Large Priority Queues—TSR Serial 
Drivers—Unix Shell Scripts 


July 1987 #129 Volume XII Issue 7 NE eee IP 
386 Development Tools— Optimizing 8088 Code- 
Curses for MS-DOS 


TOTAL 


Name 


City 


L) Check Enclosed. 


Make Payable to M&T Publishing. 


Aug 1987 #130 Volume XII Issue 8 Please Charge my (J) VISA CI) M/C CL AMEX 
Unveiling ANSI C—New Tools for C—Ray Duncan 


on Dos 3.3—AI: Programming in Loops Card No. 


Other issues are also available. Please inquire. Exp. Date ____ 


Signature 
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INTERRUPT HANDLING _ 


Listing Four (Listing continued, text begins on 54.) 


mov al, (bp+6] 
int 2lh 


Old interrupt # into AL 
sPick up "61a" in) ES:Bx 


mov ax,es 
mov ds,ax 
mov ax, bx 
mov ah,25h 
mov al, [bp+8] 
int 2lh 
lds dx, [bp+10) 
mov ah,25h 
mov al, [bp+6] 
int 2lh 
pop ds 
pop bp 
mov ax,0 
errors: ret 


Listing Five 
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7Old int# into AL again 
7Put function pointer into table 
Restore registers 


7;ES:BX->DS:DX for function 25h call 


zInterrupt destination into AL 
Load DS:DX into table at "new" 
sLow load pointer to low-level handler 


sreturn of zero in AX means O.K. 


End Listing Four 


#include <regsdef.h> /* typedef of REGS structure */ 
#define OLDINT XxX /* interrupt captured */ 
#define NEWINT yryY /* new location for old vector */ 


[ERK K KKK KKK KKK KKK KK / 
Hhandl (xx) 

int xx; 

{ 

REGS *regs = &xx; 
/* 


* Do whatever it is here that needs to be done. Obviously, other 

* C functions could be called from this one. Don't forget to chain 

* the interrupt so that other resident programs get their chances. 

* If a hardware interrupt is being captured and your handler is fairly 





Introductry Offer $99.95 


The added plus you need for developing sophisticated 
computer graphics, CAD, and programs that use 
computational geometry. 


You save time and 
money with its 
flexibility. 


An excellent addition 


to Borland's Turbo 
Graphix Toolbox:> 


Over 150 ready to use routines, such as Equations of 
Lines, Circles, Arcs & Planes » Intersection of Lines, 
Circles, Planes * Curves * 2&3 Dimensional 
Transforms *¢ Polygons * Hidden Lines * Volumes = 
Areas * Prespectives * Polygon Clipping and more... 


Manual, full source code and sample programs.All for 


the introductry price of $99.95US. Add $5.00 for SH. 


Tex Res add 8% ST. 30 day money back guarentee. 
VISA,MC,Check MO accepted. Needs Turbo Pascal 
2.0+, IBM PC(Comp),Zenith Z100,MS/PC DOS 2.0+. 


DISK SOFTWARE, INC. , 2116E Arapaho, # 487 


Richardson, Texas 75081 (214) 423-7288 
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Easy to C 


Cc iS a great prograMMINg genase 
language. Now the C 


WORKSHOP makes it easy. 
Interactive software teaches 
you C with immediate feedback 

on your program exercises. 

The C WORKSHOP has 
everything you need to learn 
C and write your own pro- 
grams, too. You get a fast editor,™ 
standard C compiler, and online 
help. 

Let the other guy struggle with confusing books 
and compilers. Join AT&T and other major com- 
panies now using the C WORKSHOP. Columnist 
Adam Green calls it “the most intriguing new type 
of training system I’ve ever seen.” (InfoWorld 
1/27/86) 
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eae Fa: Order Information 
eae To order the C Workshop, call toll-free 
jor Ocrs FL (800) 227-2400 ext. 955 day or night 
= (Visa, MC, or AmEx). Or send check to 
a Wordcraft, 3827 Penniman Ave., Oak- 
land, CA 94619. $69.95 plus $5.00 
shipping (Priority Mail). In CA, add 
$4.90 sales tax. 
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main () 


{ 






























oy 








© 


lengthy, you may need to set a static flag to block reentry and 


include _inb(0x20,0x20)--an EOI to the PIC. 


RRR KE REE KKK KK KK / 


/* Initialization routine */ 


int Lhandl(); 
REGS rr; 


saveds(); 


/* tell the compiler about the low-level handler */ 
/* allocate space for initializers's interrupt calls */ 


/* save data segment */ 


Set up the high-level handler here by initializing globals--e.g., 
screen parameters, addresses in the 00:400h memory area, strings for 
hot-key substitutions, a pointer to the DOS-can-be-interrupted flag, 


a pointer to the 
while you are not in residence. 


if (chgint (OLDINT, NEWINT, Lhand1) ) 
puts("\n\nVECTOR IN USE\7\7"); 
else { 
rr.ax = 0x3100; 
rr.dx = PROGRAMSIZE; 
puts("\n\nDONE & INSTALLED") ; 
interrupt (0x21, érr); 
} 


memory allocation chain, etc. Do it now, 


in <, 


/* test & swap vectors */ 


/* exit; stay resident service. */ 
/* PROGRAMSIZE in paragraphs */ 


End Listings 


C Programmers: Combine C and COMMON LISP 


to Increase the Power of Your Software 


Simple. 


Add LISP features to your software without mak- 
ing it a full time job. The TransLISP PLUS tutorial, 
on-line help, and 30 sample programs with 
commented source make it easy. 


Practical. 


Start by modifying the LISP sample programs 
and including them in a system you wrote in C. 
Yes, in C! TransLISP PLUS includes a C Language 
Interface that lets you integrate your Microsoft C 
code and libraries with all or portions of our LISP 
interpreter. 

Use TransLISP PLUS to add natural or command 
language features to replace menus. .. or to flexibly 
manage related but disparate information. Code 
from C libraries provided by other vendors can be 
integrated into your program to perform tasks not 
normally part of LISP. 


| The 
Coder’s 
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‘TransLISP PLUS: 


Source ™ 541-D Main St., Suite 412, So. Weymouth, MA 02190 


Thorough. 


TransLISP PLUS took over 400 primitives from 
the most widely used and respected LISP standard, 
COMMON LISP, and made it available on IBM 
PCs, XTs, ATs, and virtually every other MSDOS 
machine. So now you can work with anything from 
a $700 PC to a $7000 PC. 

The utilities toolbox is included at no charge with 
a built-in editor, pretty printer, cross reference, 
and additional debugging tools. 

An optional Runtime encrypts your source code 
so that you can distribute your applications safely. 
You pay no royalties. 

Requires MSDOS 2.0+, 320K RAM, and a 360K floppy. 


MONEYBACK GUARANTEE 
Try TransLISP PLUS ($195) for 30 days — if not 
satisfied get a full product refund. The Optional 
Runtime is available for $150. Or start by learning 
LISP with TransLISP ($95) then upgrade to PLUS 


for $158. 
Call (800) 255-4659 
In MA (617) 331-0800 
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Listing One (Listing continued, text in October.) 


es +e eee ee ke HR eRe KH eH eR eR KE e RK KE KH eR Re KR HR HR HE KR ER 
zs 82 & & & & RRA 





MDoWarn ~-- Control call to put up a warning 


Entry: AO -> IQQelement 


Se Se Se Ye Ye %e a s&s 





MDoWarn move CSParain(a0),DO 3 get the error code into DO 
bsr.s DoWarn 3; warn ‘em and return status in DO 
bra AbusExit i and exit 


Put up alerts 





DoWarn -- Warn the user... Give a beep, and display a dialog; 
wait for their choice, then try the NNNN one more time. 
If they choose “Use new address“ from Mismatch dialog, 
set SysLAPaddr and SysNetNum to zero before exiting. 


Entry: DO = PortNotCf 
noAnswer 
Exits DO = -4001 (user clicked OK/Try again) 
-4002 {user clicked Use New) 
-193 (ResFNotFound) 


Se Me Fe Be Se Te Be Se Be Se Se Be Fe %e 


resfile EQU -2 7; res file number 

dligwindow EQU -6 ; dialog window handle 

warning EQU -8 # error number/return status 
MyCurMap EQU -10 3 save the current res file 
DoWarn _SUBR 10 ? Warn the user about troubles 


move.w D0O,warning (A6) 
move.w CurMap, MyCurMap (A6) 
InitCursor 


remember the warning 
and the current res file 
make it an arrow again 


ee Se Ve 


; Open our resource file. 


subq.l #2,8p make space for result 
pea fileName point to file name 
OpenResFile 

move.w (SP)+,resfile (A6) 
cmp .W #-1, resfile (a6) 


Se 


save the resfile number 
check for failure 


Se 


ee 


bne.s @3 7 branch if ok 
move.w #60,-(A7) 7 else beep (long) 
SysBeep 

move.w #ResFNotFound, D0 7 return bad status 
bra.s @20 ? and quit 


7 beep at ‘em 

@3 
move.w #6,-(A7) 
_SysBeep 


se 


1/10 second beep 


s choose a dialog to display 
move.w #PortNCalrt,D0 
cmp.w #PortNotCf,warning(a6) ; which warning? 
beq.s &@5 
move.w #Noansalrt,D0O # noAnswer dialog 


# now display the dialog 

@s 
subq.l #4,sp 
move.w D0O,-(sp) 
clr.1° =(sp) 
move.l #-1,-(sp) 
_GetNewDialog 
move.l1 (SP)+,dlgwindow(A6) ; save the dialog's handle 


Space for result of GetNewDialog 
dialog resource ID 
dialog record in heap 
in front of other windows 


Se %e %e Me 


Now do the dialog stuff 


subq.l #2,sp 
e1z1 - (sp) 
pea 4 (sp) 
_ModalDialog 


result on stack 

normal filterproc 

point to result space 
Do it 


Se Se Se Se 


discard dialog 
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move.l dlgWindow(a6),-(sp) ; 


_DisposDialog 


; What did they hit? 


move.w (sp)+,d0 

cmp.w #1,D0 

beq.s 810 

Gig.8 SysLAPAddr (a2) 

clr.w SysNetNum (a2) 
610 neg.l1 DO 

sub.] #4000,D0 

move.w DO,warning (A6) 


; discard resource file 


move.w resfile(A6),D0 


point to dialog 


get the button's item $ 
(Try Again or OK (#1)) or Use New? 
go if not “Use New" 
otherwise, Use New 
and reset net and node adrs 


se Se Se Se Fe 


item will be 1 or 2; return -4001 
or -4002 as the status 
save it 


ee %e Ve 


get the refnum 

was it the current resource file 
go if so (someone else opened it) 
else, push it 

and close it 

get the status from the NNNN 


3 and exit 


cmp.w  MyCurMap(A6),D0 ; 
beq.s @15 ; 
move.w D0O,-(sp) : 
CloseResFile ; 
@15 move.w warning (A6) ,DO : 
@20 ; DO is result code for this routine 
_SUBEND 'DOWARN ' 
FileName DC.B LS 
DC.B ‘Async AppleTalk’ 
DC.B *V1.2a6' 
ALIGN 2 


zg eeaete end of lap.a 


Listing Two 


CRC Calculations 


This file contains a CRC calculation in Pascal. 


End Listing One 


It was used with 


preliminary versions of Async AppleTalk, and computes the same 
function as the code in the M68000 listing. 


The NextCRC algorithm simulates the feedback shift register which 


normally implements a CRC calculation. 


NextCRC takes each four- 


bit nibble of the input char and uses a table (crctbl) to select 


a mask which is exclusive-or'd 


} 
{ pseudo-CONST -- put this in the i 


erctbl1[00] := 
crctbl(02] := $D801; 
crcetb1[04] := $F001; 
crctbl[06] := $2800; 


$0000; crctbl[01] := 
crctbl[03] := 
ecrctbl[{05] := 


crctbl[07] := 


crctb1 [08] := $A001; crctbl[09] := 
ecrctb1(10]) := $7800; crctbl[{11) := 
crctbl1[{12] := $5000; crctbl[{13] := 


erctbl[{14] := 
} 


$8801; crctbl[15] := 


VAR crctbl : 


with the current CRC accumulator. 


nitialization code of your program 


$ccols 
$1400; 
$3C00; 
$E401; 
$6C00; 
$B401; 
$9C01; 
$4400; 


array [0..15] of integer; 


function NextCRC (cre : integer; c : QDbyte) : integer; 
VAR 
3 : integer; 
BEGIN 
3} := cretbl[{ band (bxor(crc,c),$0O00F) j; 
Ere -:= bxor (bsr (crc, 4),,}) z 
c := bsri(c, 4); 
j := crctbl[{ band (bxor(crc,c),SO0O0F) ]? 
ere -:= bxor (bsr (cre, 4}.,.3)3 
nextcre := crc; 
END; { NextCRC } 
function crcl6 (p : qdptr; len : integer) : integer; 
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(continued on next page) 


a 





function libraries 
disassemblers 

compilers 

text editors 

ioe m ihe) 
communications support 
text formatters 


interpreters 


Users’ Group 


Library 


bulletin boards 


A Directory 
of Public Domain 
C Source Code 


co-routines 
compiler compilers 
window packages 
assemblers 
games 

tutorials 

math packages 
link editors 
languages 

cross compilers 
pre-processors 
function libraries 
disassemblers 
compilers 


i) aa -10 ce) 6) 
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PROMPT DELIVERY!!! 
G SAME DAY SHIPPING (USUALLY) 


QUANTITY ONE PRICES SHOWN for SEPT. 20, 1987 


OUTSIDE OKLAHOMA: NO SALES TAX 


DYNAMIC RAM 
1000Kx1 100 ns 
256Kx4 120ns 
*256Kx1 100 ns 
64Kx4 150ns 
256Kx1 80nS 
256Kx1 100 ns 
256Kx1 120 ns 
256Kx1 150 ns 


1Mbit 
1 Mbit 
51258 
4464 
41256 
41256 
41256 
41256 
41264 


270512 
27C256 


$27.50 
32.00 
6.50 Ee 
3.60 Bae 
5.50 
4.85 
3.95 
3.50 
5.25 


$15.50 
6.75 
5.60 
5.35 


64Kx8 200 ns 
32Kx8 250 ns 
27256 32Kx8 250 ns 
27128 16Kx8 250 ns 

STATIC RAM 
43256L-12 32kx8 120ns 
5565PL-15 8kx8 150ns 


OPEN 6% DAYS, 7:30 am-10 pm: SHIP VIA FED-EX ON SAT. 


SAT DELIVERY | MasterCard/VISA or UPS CASH COD 
INCLUDEDON | Factory New, Prime Parts Poo 
eae, MICROPROCESSORS UNLIMITED, INC. 

eae : j . Peoria Ave., 
Pepi $10.20/2 tks} BEGGS, OK. 74421 (918) 267-4961 
: . No minimum order. Please note that prices are subject to 
change. Shipping & insurance extra, & up to $1 for packing materials. Orders received by 


9 PM CST can usually be delivered the next morning, via Federal Express Standard 
Air @ $4.00, or guaranteed next day Priority One (@ $10.50! All parts guaranteed. 
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80287-8 80387-16 


640K MOTHERBD UPGRADE: Zenith 150, 
160.00 $250.00 $540.00 


IBM PC/XT, Compaq Portable & Plus; hp Vectra 


te) yey 
$ 





In conjunction with Glockenspiel of Dublin 


C++ TRAINING 


“Programming Workshop 
November 16-20 
December 14-18 

January 11-15 


*Overview for Developers 
November 26 _ 
December 9 
January 20 


On site courses available. 
For more information and reservation: 


Semaphore, Inc. 
16 Haverhill Street, Andover, MA 01810 
(617)685-1478 


CIRCLE 308 ON READER SERVICE CARD 





105 


ASVNIC: APPLETALK: = 


Listing Two (Listing continued) 


VAR 
L,. 4 -integer; { sixteen bits wide } 
e : qdbyte; { an eight bit value } 
cre : integer; { the CRC accumulator } 
BEGIN 
ere se. 07 
for 1 := 1 to len do begin 
ade 
p := pointer(ord(p) + 1); 
crc := NextCRC(crc,c); 
end; 
ercl6 = crc; A, as 
END; { crcl6é } End Listing Two 


Listing Three 
_AssumeEq Argl, Arg2 -- macro to generate a compile-time error if two 
arguments are unequal. 


To optimize code size, we will be making various assumptions, 
mainly as to offset values. This macro is a way of formalizing 


se Se Se Se Se Be Ve 


those assumptions within the code. 


BLANKS ON 
STRING ASIS 


MACRO 
_AssumeEq 
IF &Eval(&Syslst(1}) <> &Eval(&Syslst[2]) THEN 
_ERR ; Invalid statement - will cause error 
ENDIF 
ENDM 





Query +MANAGER= 
Q-MAN 


Q-MAN, a fast true relational data base management 
system which supports interactive and imbedded 
queries, library routines, forms, and will be multi-user 
or distributed. Uses QUEL and SQL languages, B+ 
trees, and sort-merge joins. Free multi-user upgrade 
when released first quarter of 1988. 










Runs on: single-user 
SYS 5 $1395 
4.2 1395 
MS-DOS™ 329 












To order 
Call collect 


(608) 271-2171 


Breakpoint Computer Systems, Inc. 


6701 Seybold Road, Suite 204 
Madison, WI 53719 


Include machine name and operating system 
when ordering. 






Visa and Mastercard accepted. 
MS-DOS" is a registered trademark of Microsoft Corporation. 
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Explore the beauty of fractals! 


FractalMagic™ lets you investigate these 
beautiful images on your personal computer. 


"| can't imagine a better way to waste an 
afternoon or two. No color 
PCompatible is complete without a copy 
of this; get one and see what | mean." 
Jerry Pournelle - BYTE Magazine 


"A slick, fast program.” Ray Duncan 
- Dr. Dobb's Journal 


IBM EGA - $25.00 
IBM CGA - $25.00 
Macintosh - $25.00 

Apple II - $25.00 


Sintar Software 

P.O. Box 3746 
Bellevue, WA 98009 
206-455-4130 

Visa, MC, AmEx 
($2.00 Surcharge) 


<<" 
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ee”  e—=—E—e eee —_—_- a 


; _StatCount Argl -- increment a statistics count if stat keeping is enabled 


Assumes A2 points to the driver variables 


MACRO 
_StatCount 
IF debug THEN 


ADDQ.L #1,&Syslst[(1] (A2); Update the count 


ELSE 


nop 7 commented out 
ENDIF 
ENDM 


-- assembles a "Link A6, #2???" 


works for SUBR <no param> and _SUBR ### 


&size 
&size = '' THEN 
A6, #0 


A6, # (-&size) 


NAME, $xx -- Subroutine epilog 


If debugging, put in Unlk and the name 


MACRO 
_Subend éname 
Unlk A6 
rts 7; and return 
De .B &name 7; the name 
ALIGN Z 

ENDM 


7; unlink the stack frame 


End Listings 


ADD TO THE POWER OF YOUR PROGRAMS WHILE YOU SAVE TIME AND MONEY! 


CBTREE does it all! Your best value in a B+tree source! 


Save programming time and effort. 

You can develop exciting file access programs quickly and easily because 
CBTREE provides a simple but powerful program interface to all B+tree 
operations. Every aspect of CBTREE is covered thoroughly in the 70 page 
Users Manual with complete examples. Sample programs are provided on 
disk. 


Gain flexibility in designing your applications. 

CBTREE lets you use multiple keys, variable key lengths, concatenated 
keys, and any data record size and record length. You can customize the 
B+tree parameters using utilities provided. 


Your programs will be using the most efficient searching techniques. 
B+trees use efficient search techniques that require fewer disk seeks than 
other methods. CBTREE guarantees an optimized maximum search path 
and always remains balanced. CBTREE is optimized for speed. You will 
be using a commercial quality, reliable and powerful tool. CBTREE isa full 
function implementation of the industry standard B+tree access method 
and is proven in applications since 1984. 


Access any record or group of records by: 
its absolute position in the index (GETFRST and GETLAST), 
its relative location in the index (GETPRV, GETNXT and GETSEQ), 
an exact match to a key (GETREC), 
a partial match to a key (GETPAR, GETALL and GETKEYS) 
a lexical relation to a key (GETLT, GETLE, GETGT and GETGE). 
You may also add, delete and update any record without the need to 
reorganize the index (INSERT, ISRTKY, DELETE, DELTKY and 
NEWLOC). 

* Block retrieval calls speed up sequential processing. 


Increase your implementation productivity. 
CBTREE is over 6,000 lines of tightly written, commented C source code. 
The driver module is only 20K and links into your programs. 


Port your applications to other machine environments. 

The C source code that you receive can be compiled on all popular C 
compilers for the IBM PC and also under Unix, Xenix, and AmigaDos! No 
royalties on your applications that use CBTREE. CBTREE supports multi- 
user and network applications. 


ee ee eee oe ee NE EEO  ——<-  lllU 


——— ee SCUCl.Lr Sr rr roOt— 


CBTREE IS TROUBLE-FREE, BUT IF YOU NEED HELP WE PROVIDE FREE PHONE SUPPORT. 
ONE CALL GETS YOU THE ANSWER TO ANY QUESTION! 
CBTREE compares favorably with other software selling at 2,3 and 4 times our price. 
Sold on unconditional money-back guarantee. 
YOU PAY ONLY $99.00 - A MONEY-SAVING PRICE! 
TO ORDER OR FOR ADDITIONAL INFORMATION 
CALL (703) 356-7029 or (703) 847-1743 
OR WRITE 


Peacock Systems, Inc., 2108-C Gallows Road, Vienna, VA 22180 
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PEACOCK SYSTEMS. INC 
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Listing One 
(Listing continued, text begins on page 116.) 
Listing 1 -- calendar.c, Printed 12/31/1987 


1] #include <stdio.h> 
2| #include <time.h> 
3| #include <ctype.h> 
b | [Beem ere nn rn ne een en sees ne me een es esn meen sens onewasasone 
S| * CALENDAR.C This program searches a file called “calendar" 
6| * in the current directory and prints all lines 
7| * that start with today's or tomorrow's date. Note that this 
8| * behaviour differs from Unix, which allows the date to be 
9| * anywhere on the line. Leading whitespace on the line is 
10| * ignored, however. Like Unix, "tomorrow" is extended to 
11| * Monday if calandar is run on a weekend. 
22), 2 
13| * If the date is a weekday (monday, tuesday, wednesday), 
14| * which can be abbreviated by the first few character of the 
15| * name (mon, tu, wed) then the line is printed on that day, 
16| * reguardless of the actual date. For example, lines starting 
17| * with "tue" will be printed every tuesday. Explicit dates 
18| * can be listed too and most common abreviations work: 
LO hr .* 
20| * Sept. 7, 1987 
fl 0 a September 7 ‘87 
A a sept. 7 
23| * Sep 7 87 
24| * 9-7 
eoi* 9/7 
26) * 9/7/87 
2h a 9 7 1987 
sei.-:* 9~7-1987 
29|°.* 
30} * and so forth. Like unix, "7 September" doesn't work, however. 
31} * The day must follow the month. 
32 (2 5 
33; * If a * is found in the month's section of any of the above 
34| * dates (as in "*-7-87" or "* 7)" then that day in any month 
35} * will match. If no day is specified, then all days in the 
36| * indicated month will match. 
37 * 
38| * Abbreviations are formed by looking at the first few 
39| * characters of the word. The shortest possible abbreviations 
40| * are: 
41 * 
a2|.°°* su sunday mo monday 
43{° * tu tuesday w wednesday 
44, * th thursday LY friday 
£51 .- sa saturday ja january 
46| * fe february mar march 
a7t-* ap april may may 
4s| * jun june jul july 
49| * au august se september 
Sethe. ° october n novemeber 
Sistas d december 
S2i\-"° * 
53| * BUGS: * If you specify both the day of the week and the date, 
54| * as in “Tuesday, July 7, 1987", the "Tuesday" is 
ss} °2 processed and the date is ignored. 
Jof- > 
S74 -°* * The following won't work: 
ae) * Jun 1 49er's today 
59| * because calendar will pick off 49 as the current year. 
60}: .* Put some nonnumeric character that can't be part of a 
Sci. 2 date string in front of the "49." You can use any 
C2... * character but a number or one of: {-./! }. 
63| . */ 
64 | 
65| #define JAN 31 /* Days in the month af 
66| #define FEB 28 
67| #define MAR 31 
68| #define APR 30 
69| #define MAY at 
70| #define JUN 30 
71| #define JUL 31 
72| #define AUG 31 
73| #define SEP 30 
74| #define OCT a1 
75| #define NOV 30 
76| #define DEC sl 
77 | 
78| int offset_to first_of_month[{) = 
aS. { 
80| 0; /* Offset to the first of */ 
81| JAN, /* of the month from */ 
82] JAN +FEB, /* January, lst. */ 
83] JAN +FEB +MAR, 
84 | JAN +FEB +MAR +APR, 
85 | JAN +FEB +MAR +APR +MAY, 
86| JAN +FEB +MAR tAPR +MAY +JUN, 
87 | JAN +FEB +MAR +APR +MAY +JUN +JUL, 
88 | JAN +FEB +MAR +APR +MAY +JUN +JUL +AUG, 
89] JAN +FEB +MAR +APR +MAY +JUN +JUL +AUG +SEP, 
90 | JAN +FEB +MAR +APR +MAY +JUN +JUL +AUG +SEP +OCT, 
91] JAN +FEB +MAR +tAPR +MAY +JUN +JUL +AUG +SEP +OCT +NOV 
921 }2 
93 | 
94 | [Barn n nnn nn nn nnn nn ne ea nn nnn nnn nnn nn nn nn = + $+ == === = a} 
95] 
96| char *skipstuff (p) 
97| char *p; 
38] { 
oa /* All of the following can be used in a date string */ 
101] while(isspace(*p)|]|*p=——'-'||*p=—="/'||*p==!.' | [*pe=',! 
102| [i *peet\'t) 
103] ++p; 
104 | 
105| return p; 
106| } 
108 


107| 
108| 
109] 
110| 
111] 
112| 
113] 
114| 
1151 
116| 
LET | 
118| 
119] 
120| 
121| 
122| 
123] 
124| 
125| 
126] 
127| 
128| 
129] 
130] 
131| 
132| 
133 | 
134| 
135] 
136| 
137] 
138 | 
139] 
140| 
141] 
142| 
143] 
144] 
145| 
146] 
147] 
148| 
143| 
150| 
151] 
152] 
153) 
154] 
155] 
156] 
157| 
158 | 
159| 
160 | 
161] 
162 | 
163] 
164 | 
165] 
166| 
167 | 
168 | 
169| 
170] 
171] 
172\| 
173| 
174 | 
175] 
176| 
177| 
178] 
179} 
180| 
181] 
182| 
183 | 
184] 
185| 
186| 
187] 
488 | 
189| 
190] 
191] 
192] 
193| 
194] 
195] 
196] 
197} 
198 | 
199} 
200] 
201) 
202) 
203| 
204| 
205] 
206| 
207] 
208| 
209] 
210] 
211] 
212! 
213) 
214) 


[OR mm rrr nn x / 
main () 
{ 

char but { 132], .* pe 

FILE *fd; 

struct tm *t3 

long thetime; 

int month, day, year, wday; 


int 


el, 


G2,-'33 


if( !(fd = fopen("calendar", “r") ) ) 


{ 


perror( “calandar"™ ); 
exit(1l); 


} 


thetime = time(NULL) ; 


t = localtime( &thetime ); 


printf ("Today is %s\n", asctime( t ) ); 


while( fgets( buf, 
{ 


wday = -1; 
month = -1; 
day = OQ; 
year = 0; 
p = buf; 


while( isspace(*p) ) 


+tp; 


if( isalpha(*p) ) 
{ 


if( 


} 
if( 


if( month < 0 ) 


if( 
/* 


see ee 


/ 


day += offset_to first_of month[ month } - 1; 
if( year % 4 == 9 a 


cl = tolower( p[ 
tolower( p/[ 
tolower( p[ 


c2 = 
c3 = 


a. ( 
else if( 
else if( 
else if( 
else if ( 
else if( 
else if( 
else if( 
else if( 
else if( 
else if( 
else if( 
else if ( 
else if( 
else if( 
else if( 
else if( 
else if({ 
else if( 


if( wday 


{ 


if( t->tm_wday = wday || 
fputs( buf, stdout ); 


cl=='a' 
cl=='a! 
cl=='d' 
cl=='f° 
cl=='f! 
cle='4' 
cl=='4! 
cl==-'4! 
cl=='m! 
cl=='m' 
cl=='nm' 
cl=='n! 
cl=='o! 
cl=='s! 
cle='s! 
Cl=a='s! 
cl=='t! 
cl=='t! 
cl=='w' 


>0 ) 


continue; 


} 


while{ isalpha( *%p ) 
ptt; 


p = skipstuff(p); 


isdigit ( 


‘eH 


if Dp mm fet) 


{ 


132, fd) ) 


0) ): 
1) ): 
2) ): 


c2—'p! 
c2——'u! 


c2=='e! 
c2—'r' 
c2—'a’ 
c2—'u! 
c2=—'u! 
c2=——'a! 
c2—'a' 
C2=='0! 


c2=—'a' 
c2=—'e! 
c2=—='y! 
c2—'h! 
c2=—'u! 


*D am Int 


month = t->tm_mon; 


++p; 


} 
else if( month < 0 ) 


month = stoi( &ép ) - 1; 


p = skipstuff ( 


day = stoi 


p = skipstuff ( 


if( (year = stoi(&p)) > 99 ) 
year -= 1900; 


!year 


!'day 


Pp 
p 


) year 


) day 


&é 


day++; 


year 4100 != 9 


Li 


( &p ); 


Ve 


c3==')!' 
c3=='n! 
Cc3=='r! 
c3——'y' 


*pomm Fh) 


= t->tm_year ; 
month = t->tm_mon ; 
= t->tm_mday ; 


eee ee ee ee ee ee ee eee ee 


month 
month 
month 
month 
wday 
month 
month 
month 
month 
month 
wday 
month 
month 
wday 
month 
wday 
wday 
wday 
wday 


WNHHPOCOWDHWrRrRENUHO UF FH ~J)W 


(t->tm_wday +1) = 


Convert the specified date to an offset, in days, 
from Jan 1. Unix provides the offset for today in the 
tm_yday field. It makes life difficult by making 1 Jan. 
be 0, however. We also have to compensate for leap 
year. If the year is a multiple of 4, it's a leap year 
unless it's also the first year of the century (1900 
was not a leap year, even though it's a multiple of 4). 


~ 


o 


Se Ve Se Fe Fe Fe Fe Fe Fe Be Be Se Fe Fe Se Fe Fe Be Fe 


wday) 


&& month >= 2 ) 


(continued on page 110) 
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Listing One 
(Listing continued, text begins on page 116.) 


215] /* Print the line if required. The first test is the 

216] * normal situation (today or tomorrow). The second 

217] * test takes care of Saturday, which must include 

218] * the following Monday in its definition of “tomorrow." 

219] * The third test takes care of December 31, which must 

220] * recognize January 1 as “tomorrow.” Note that I'm 

221| * intentionally not testing for the years being different 

222| * because it seems reasonable that, if no year is 

223) * specified and today is December 31, that the next year 

224| * 1s implied by January 1, with no date. 

225)} a/ 

226| 

227) if( t->tm_year == year && 

228] (day = t->tm_yday || day == t->tm_yday +1) ) 

229] fputs( buf, stdout ); 

230| 

2311 if( t->tm_wday == 6 && day == t->tm_yday + 2 ) 

232 | fputs( buf, stdout ); 

233 | 

234 | if( t->tm_mday == 31 && t->tm_mon == 11 && day == 0 ) 

£334 fputs( buf, stdout ); 

236 es 

237 } ; End Listing One 
8 gS 

Listing Two 


Listing 2 -- dateh.c, Printed 7/26/1987 
1] #include <stdio.h> 


#include <dos.h> 
#include <time.h> 

4| #include <sys/types.h> 
#include <sys/stat.h> 


2! 
3| 


32] 
33] 
34| 
35] 
36| 
aT 
38 | 
39] 
40| 
41| 
42| 
43| 
44| 
45| 
46| 
47| 
48| 
49) 
50] 
51] 
52] 
53] 
54| 
55] 
56] 
57 | 
58| 
59] 
60 | 
61] 
62 | 
63 | 
64 | 
65 | 
66] 
67] 
68 | 
69] 
70) 
711 
72\ 
73| 
74 | 
75] 
76! 
77\ 
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/ 


ee 
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Creates or updates file called date.h that looks like: 


#define DAY_ "6-17-87" 
#define TIME 24 "12:5:23" 
#define TIME “I2:5' PM" 


#define “DATE_ "6-17-87 12:5 PM" 

and holds the current time and date. The file is created 
if it doesn't exist. If it does exist, it is modified, but 
only if it was not modified or created earlier on the same 
day. All of this behaviour can be modified by command-line 
switches [see usage(), below]. 


This program uses the Unix time functions. For them to work, 
you need to set the various codes in the TZ environment 
variable. For example: 
setenv TZ=PST8PDT 
set TZ=PST8PDT 


(Unix or Sh) 
(COMMAND . COM) 


Says the Pacific Standard Time is 8 hours off of Greenwich 
and the PST is used as the abbreviation for it. PDT is used 
as an abbreviation for daylight savings time. 


Exit status is 0 if the file is untouched, 1 if it's created 
or modified, 2 on an error of some sort. 


s/ 
main( argc, argv ) 
char ** argv; 
{ 
FILE *fd; 
struct stat stats; 
struct tm =t; 
int day ; 
long thetime; 
int pm; 
char =D; 
int verbose = 0; 
int force = 0; 
int create = 0; 
if( argc !=1 ) 
{ 
p = argv(1); 
if ( *p l- 58 ) 
usage({); 
else 


for( ++p ; *p ; ptt ) 
switch( *p ) 
{ 


case 'v': verbose = 1; break; 
case 'f*: force = 1; break; 
case ‘'c'; create = 1; break; 
default : usage(); 


} 
} 


thetime = time(NULL) ; 


if( stat("“date.h", éstats) != 0 ) 
{ 


if( !create ) /* File doesn't exist */ 
exit( 0 ); 
t = localtime( éthetime ); 


printf(“Creating DATE.H: %s\n", asctime(t) ); 


else 


78 | 
79| 
80| 
81] 
82 | 
83 | 
84] 
85] 
86 | 
87 | 
88 | 
89| 
90 | 
91] 
92 | 
93] 
94 | 
95] 
96 | 
97} 
98 | 
99| 
100| 
101] 
102| 
103| 
104] 
105] 
106| 
107| 
108] 
109} 
110] 
1111] 
112| 
1131 
114] 
115| 
116] 
117] 
118] 
119| 
120| 
121| 
122| 
123| 
124| 
125] 
126| 
127| 
128] 
129] 
130 | 
131] 
132 | 
133] 
134 | 
135] 
136] 
137| 
138 | 
139] 
140] 


} 





{ 


t = localtime( &(stats.st_mtime) ); 
if( verbose ) 
printf( “DATE.H last modified: %s", asctime(t) ); 
day = t->tm_yday; 
t = localtime( éthetime ); 
if( verbose ) 
printf( “Today is: %s", asctime(t) ); 
if( t->tm_yday == day éé !force ) 
exit( 0 ); 
else 


printf("Modifying DATE.H\n"); 
} 


if( !(fd = fopen( “date.h", “w" )) ) 
{ 
perror( “date.h" ); 
exit( 2 ); 
} 
else 
fprintf(fd, “#define DAY_ \"$d-td-td\"\n", 
~ t->tm_mon, 
t->tm_mday, 
t->tm_year ); 
fprintf(fd, “#define TIME 24 \"%d:%d:%d\"\n", 
ie t->tm_hour, 
t->tm_min, 
t->tm_sec ); 
pm = t->tm_hour >= 12; 
if( t->tm_hour > 12 ) 
t->tm_hour -= 12; 
else if( t->tm_hour == 0 ) 
t->tm_hour = 12; 
fprintf(fd, “#define TIME_ \"8d:%d ts\"\n", 
t->tm_hour, 
t->tm min, 
pm ? ‘py ; “Amie : 
fprintf(fd, “#define DATE_ \"td-%d-td td:td %s\"\n", 
7 t->tm_mon, 
t->tm_mday, 
t->tm_year, 
t->tm_hour, 
t->tm min, 
pm ? tipm™ ; “aye ): 
fclose(fd); 
} 
exit( 1 ); 


141| #define E(x) fprintf(stderr,x) 


142| 


143| usage() 


144 | 
145] 
146| 
147| 
148] 
149] 
150] 
151] 
152| 
153] 
154| 


{ 


} 


E(“Usage dateh [-fvc]\n"); 

E("If date.h doesn't exist, create it, otherwise if\n"); 

E(“the date stamp isn't today, update it\n"); 

E("\n"); 

E(“-f forces an update, even if the date stamp is ok\n"); 

E("-v verbose operation\n"); 

E("-c create file if it doesn't exist\n"); 

E("\n"); 

exit( 2 ); OP 
ae End Listings 
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Listing One (Text begins on page 124.) 


Listing 1. Pascal function for the simple heuristic search in an 
unordered array. 


FUNCTION Searchl(VAR Data : AnyArrayType;: { input } 
VAR Index : IntegerArray: { in/out } 
NData : INTEGER; { input } 

Item : ScalarType { input }) : INTEGER; 


{ function returns the index of the matching 
array, or zero if no match is found } 


VAR I, Tempo : INTEGER; 


BEGIN 
I := 1; 
{ scan array } 
WHILE (Item <> Data[ Index{I] ]) AND (I <= NData) DO 
I) s@-I° + i? 


IF I <= NData 
THEN BEGIN { match found } 
Search] := Index[I]); { returned result } 
{ Swap indices ? } 
IF I > 1 THEN BEGIN 
Tempo := Index[I]; 
Index({I] := Index[I-1]; 
Index[{I-1] := Index[I); 
END { IF } 
END 
ELSE Searchl := 0; { not found } 


END; { Searchl } 
End Listing One 


Listing Two 


Listing 2. Pascal function for the heuristic search method for 
unordered arrays. 


FUNCTION Search2(VAR Data : AnyArrayType: { input } 
VAR Index : IntegerArray; { in/out } 
VAR Loctn : SmalliIntArray;{ in/out } 
NData : INTEGER; { input } 
Item : ScalarType { input }) : INTEGER; 


{ function returns the index of the matching 
array, or zero if no match is found } 


CONST Factor = 0.7; { time-series factor } 
{ limits used to select search schemes } 
UPPER_LIMIT = 0.65; { = 0.5 + 0.15 } 
LOWER_LIMIT = 0.35; { = 0.5 - 0.15 } 
{ number of Loctn elements used in predicting the next 
matching location } 
N= 4; 


VAR Continue : BOOLEAN; 
I, J, Tempo, This Location, Median, 
Skip, Result : INTEGER; 
Next Location, Power : REAL; 


PROCEDURE Swap Indices(K : INTEGER); 
{ Procedure used to swap indices } 
BEGIN 
{ Swap indices ? } 
IF K > 1 THEN BEGIN 
Tempo := Index([K]; 
Index[{K] := Index [K-1]; 
Index[{K-1] := Index[K]; 
END { IF } 
END; 


BEGIN 

{ Estimate the next location } 

Next_Location := 0.0; { initialize next location } 

Power := 1.0; 

FOR I := N DOWNTO 1 DO BEGIN 
Next_Location := Next_Location + Power * Loctn[I]; 
Power := Power * Factor; 

END; 

{ calculate predicted next search location as a fraction } 

Next_Location := (1.0 - Factor) * Next Location / NData: 


Result := 0; { default value for no match } 


IF Next Location > UPPER LIMIT THEN BEGIN 
{ Search last-to-first } 


I := NData; 
WHILE (Item <> Data[ Index{I} }) AND (I > 0) Do 
I :=¥ I-11; 


IF I > 0 THEN BEGIN 
Result := Index([I]; 
Swap Indices(I); { swap indices } 
END { IF } 
END 
ELSE IF Next_Location < LOWER LIMIT THEN BEGIN 
{ Search first-to-last } ~ 
I-31 
WHILE (Item <> Data[ Index{I] ]) AND (I <= NData) bo 
Eo se. +. 
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IF I <= NData THEN BEGIN 
Result := Index(I]}; 
Swap Indices(I); { swap indices } 
END { IF } 
END 
ELSE 
{ Perform bidirectional search starting at the middle } 
Median := NData div 2; 
IF Item <> Data[{ Index(Median] ] THEN BEGIN 
Skip := 1; 
Continue := TRUE; 
REPEAT 
I := Median + Skip; 
IF I <= NData THEN 
IF Item = Data[{ Index[{I] ] THEN BEGIN 
Result := Index[I]; 
Continue :=— FALSE; 
Swap Indices(I); { swap indices } 
END; { IF } 


J := Median - Skip; 
IF J > 0 THEN 
IF Item = Data[{ Index[J] ] THEN BEGIN 
Result := Index[J]; 
Continue := FALSE; 
Swap _Indices(J); { swap indices } 
END; { IF } 


IF (I > NData) AND (J < 1) THEN { out of bounds } 
Continue := FALSE; 


Skip := Skip + 1; 
UNTIL (NOT Continue); 


END 
ELSE BEGIN 
Result := Index [Median]; 
Swap Indices (Media) 
END; { IF } 
END; { IF } 


IF Result > 0 THEN BEGIN 
{ Update location array } 
FOR I := 1 TO N-1 DO 
Loctn[I] := Loctn[I+1]; 
Loctn[(N] := Result 
END; { IF } 


Search2 := Result; { return result } 


END; { Search 2 } 


End Listing Two 


Listing Three 


Listing 3. Pascal code for function implementing the first 
heuristic search method for fixed ordered arrays. 


PROCEDURE Initialize(VAR Data : AnyArrayType; { input } 


VAR Table : RecordArray; { in/out } 
TableSize : INTEGER; { input } 
NData : INTEGER { input }); 


{ initialize index table by inserting data at equal intervals } 
{ 


TYPE TableRecord = RECORD 
Key : ScalarType; 
Index : INTEGER; 
END; 


RecordArray = ARRAY[1..MAX_ TABLE SIZE) OF TableRecord; 
} 


VAR I, J, Delta : INTEGER; 

BEGIN 
Delta := NData div TableSize; 
J := 1; 


FOR I := 1 TO TableSize DO BEGIN 
Table(I).Key := Data([J]; 
Table({I).Index := J; 

J := J + Delta; 

END; 


END; { initialize } 


FUNCTION Search3(VAR Data : AnyArrayType; { input } 


VAR Table : RecordArray; { in/out } 
TableSize, { input } 
NData : INTEGER; { input. } 
Item : ScalarType { input }) : INTEGER; 


VAR Found, NoMatch : BOOLEAN; 


First, Last, I, K, Result : INTEGER; 


(continued on page 115) 
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Listing Three (Listing continued, text begins on page 124.) 





BEGIN 





Want to turn programming time Result := 0; { initialize result with default value ) 
into prime time? Want to ies Some { Search for Item in index table } 
] , i i= i> 
topspin on your techniques? Want WHILE (Item > Table[I].Key) AND (I <= TableSize) DO 
to develop invaluable new resources? Tie Iti; 
‘Time to hit the books. From Found := FALSE; 
Microsoft® Press. The best and IF I <= Tablesize | 
brightest books in the business. eee ee 
Our parent company is Microsoft, Sepuied 
the folks who taught the PC how to a as al a 
think. Our authors read like a Who’s ELSE 
Who of What's What. adn sateen 
Here are four ways to boost your gp AEP hie peg sean 
computer’s [.Q.: NoMatch := TRUE? 
’ WHILE (I <= Last) AND NoMatch DO 
Advanced MS-DOS® by Ray IF Item <> Data[{I].Key THEN I := I +1 
tren Also agi as an informa- ELSE NoMatch := FALSE; 
tion bonanza for assembly language 
ON DEO a IF NOT NoMatch THEN BEGIN 
records, directories, volume labels, vi : 
internals, memory management, Result := Table[(I].Index; { store result } 
EXEC functions, installable device IF K > 1 THEN BEGIN { update table entry } 
drivers. More. Ray Duncan has it Table[K].Key := Item: 
down. Now you can, too. $22.95. Table[K] .Index := Result 
468 pages. Softcover. END; { IF } 
END; { IF } 
The Peter Norton Programmer's ; 
Guide to the IBM* PC by Peter eS Ar 
Norton. Want to develop inter- Search3 := Result { return result } 
mediate and advanced programs 
you can port from one branch END; { Search3 } 
of the PC tree to another? Want 
to understand the hardware? Soft- 


© ware? The differences between PC, 

XT, AT and Jr.? Get the latest tech 
talk? Relax. The leading authority in the field leads you . End Listings 
out of the bog. $19.95. 448 pages. Softcover. 


Microsoft QuickBASIC by Douglas 
F Hergert. Here's the perfect way to 

aE get up to speed with QuickBASIC. 
: Plus five, smart, sample programs 
that'll tweek your QuickBASIC 
skills: MORTGAGE, for data types; 
QUICKCHART, for graphics; 
SURVEY, for data-file techniques; 
EMPLOYEE, for random-access 
files; TWENTY-ONE, for IF... THEN...ELSE games. 
$18.95. 384 pages. Softcover. 


Proficient C by Augie Hansen. 
Cross DOS and C and what do you 
get? Powerful programs that run at 
warp speed. Use the ANSILSYS 
device driver and the MAKE and 
LIB utilities to learn valuable, 
reuseable methods of structured 
program development. From the 

Ee = man whose proficiency at Bell 
Labs, General Dynamics and Raytheon was the spring- 
board to this expert guide for intermediates— and experts. 
$22.95. 512 pages. Softcover. 


Don’t fumble for answers. Turn to 
Microsoft Press. Remember: What 
you get out of your PC depends on 
what you read into it. 


Available wherever books and software are sold. Credit card 
orders call 1-800-638-3030. In Maryland call collect, 824-7300. 















Microsoft and MS-DOS are registered trademarks of Microsoft 
Corporation. IBM is a registered trademark of International 
Business Machines Corporation. 
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COLUMNS 


C CHEST 


Using the Unix/ANSI Time Functions 


his month I’m going to look at 

the Unix (and now ANSI) time 
functions and demonstrate their use 
with two short but useful programs 
—calendar and dateh. 

Calendar is an implementation of 
the Unix program of the same name. 
It searches a file called calendar and 
prints every line that starts with 
today’s or tomorrow's date. If you 
put it into your AUTOEXEC.BAT file 
and put the calendar in your root 
directory, the program prints remind- 
ers of what you have to do on any 
given day when you start up your 
system. 

The second program, dateh, cre- 
ates (or modifies) a file called date.h 
to hold C #defines for a few strings 
that represent today’s date and the 
time when dateh was run. You can 
use these #defines in a program's 
sign-on message to keep track of 
when the program was compiled. A 
sample dateh output file is shown 
in Example 1, below. The file is modi- 
fied only if it already exists and if it 
hasn't been modified earlier today, 
though you can change this behav- 
ior with command-line switches. 
The default behavior facilitates using 
dateh along with a make utility. You 
can call it every time you compile, 
but you'll only have to recompile 


by Allen Holub 


the file that #includes date.h once a 
day. Dateh returns an exit status of 
1 if the file is modified (0 if it’s not, 
2 on a command-line syntax error). 
So, you can use the COM- 


MAND.COM ERRORLEVEL mecha- 
nism (or my shell’s! $status variable) 





Example 1 Date.h file created by dateh 





in a batch file or shell script to 
decide whether or not to recompile. 


The Time Functions 

The Unix time functions provide a 
portable way to access the time and 
date from within a program. You 
can use them to get both time and 
date during execution of a program 
and the time-and-date stamp associ- 
ated with a file. Because they have 
been incorporated into ANSI, they 
provide a degree of system inde- 
pendence not available if you do 
direct DOS calls. All these functions 
require an #include <time.h> at the 
top of your program. 

There are two classes of time func- 
tions. The lowest-level function, 
called time(), provides the time and 
date as the number of seconds 
elapsed since midnight, January 1, 
1970 GMT. The returned value is of 
type long. Because there are roughly 
31,557,600 seconds in a year (365.25 
X24X60X60), and because the larg- 
est (signed) 32-bit number that a 
longint can hold is 2,147,483,647, the 
time will roll over on January 18, 
2038 at 2:56:02 a.m. This means, of 
course, that all Unix programs that 
use time() will fail on in the morn- 
ing of January 18, 2038—you can’t 
have everything. 

The ANSI standard differs from 
Unix in that the return value from 


time() is an object of type time__t 
rather than long and time__t is left 
undefined. This means that a com- 
piler manufacturer could typedef 
time__t as a double, for example, in 
order to move the rollover point well 
into the next century. I'l! use the 
ANSI convention for the rest of this 
article. The ANSI calling syntax for 
time() is: 


time__t time( timeptr ); 
time__t “timeptr; 


and the Unix syntax is: 


long time( timepttr ); 
long *timeptr; 


The time() function always returns 
the current time. In addition, if 
timeptr is not NULL, it will also load 
the time into the object pointed at 
by timeptr. The function returns 
((time__t)(-1)) if the calendar time 
isn't available. 

A second low-level function that’s 
useful in conjunction with the 
time() function is stat(). The calling 
syntax is: 


#include <sys/types.h> 
#include <sys/stat.h> 


int stat( path, buf ) 
char *path; 
struct stat *buf; 


The first argument is the path name 
of a file; the second is a pointer to a 
structure declared in stat.h. Stat() 
fills the structure with information 
about the file, such as the permis- 
sion mask, file size, and so forth. 
There are three fields that are time 
related: st__atime, st__mtime, and 
st__ctime. These hold the file’s date 
stamp, and they use the same 
elapsed-time-since-1970 mechanism 
that is used by time(). In Unix sys- 
tems, st__atime holds the time of 
last access, st__mtime is the time 
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€, PROGRAMMERS- 
We asked what you 
wanted in a database 
development system and 
we built it! 

db_ VISTA III™ is the database development system for 
programmers who want powerful, high performance 
DBMS capabilities ... and in any environment. Based on 
the network database model and the B-tree indexing 
method, db_VISTA III gives you the most powerful and 
efficient system for data organization and access. From 
simple file management to complex database structures 
with millions of records. db_VISTA III runs on most 
computers and operating systems like MS-DOS, UNIX, 
VAX/VMS and OS/2. It’s written in C and the complete 
source code is available, so your application perfor- 
mance and portability are guaranteed! With db_VISTA 
III you can build applications for single-user microcom- 
puters to multi-user LANs, up to minis and even main- 
frames. 


The db_VISTA Ir™ Database Development System 




















i db_VISTA™: The High Performance DBMS 


¢ A runtime library of over 100 functions. 

¢ Operating systems: MS-DOS, UNIX V, 
XENIX, VMS, OS/2. 

* C Compilers: Lattice, Microsoft, IBM, 
Aztec, Computer Innovations, Turbo C, 
XENIX, and UNIX. 

¢ LAN systems: LifeNet, NetWare, PC Net- 
work, 3Com, SCO XENIX-NET, other NET- 
BIOS compatible MS-DOS networks. 


The major features include: 

* Multi-user support for LANs and multi-user 
computers. 

¢ Multiple database access. 

e File and record locking. 

e Automatic database recovery. 

¢ Transaction processing and logging. 

¢ Timestamping. 

¢ Database consistency check utility. 

© Fast access methods based on the network 
database model and B-tree indexing. Uses 
both direct “‘set’’ relations and B-tree in- 


db_QUERY:” The SQL-based Query. 
e Provides relational view of db_VISTA 


dexing independently for design flexibility applications. 
and performance. ¢ Structured Query Language 
© An easy-to-use interactive database access ©® C linkable. 


e Predefine query procedures or run ad-hoc 
_ queries “on the fly”. 


utility. 

e File transfer utilities for importing/export- 
ing ASCII text and dBASE II/III files. 

¢ A Database Definition Language patterned 
after C. 

e Virtual memory disk caching for fast 
database access. 


db_REVISE™: The Database 
Restructure Program. 

® Redesign your database easily. : 

© Converts all existing data to revised design. | 


All components feature royalty-free run-time distribution, source code 
availability and our commitment to customer service. That’s why corporations 
like ARCO, AT&T, Hewlett-Packard, IBM, Northwestern Mutual Life, UNISYS 
and others use our products. 
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RAIMA’S COMMITMENT TO YOU: No Royalties, Source 
Code Availability, 60 days FREE Technical Support and 
our 30-day Money-Back Guarantee. Extended services 
available include: Application Development, Product 
Development, Professional Consulting, Training Classes 
and Extended Application Development Support. 


HOW TO ORDER: Purchase only those components 
you need. Start out with Single-user for MS-DOS then 
add components, upgrade ... or purchase Multi-user 
with Source for the entire db_VISTA III System. 

It’s easy... call toll-free today! 
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db__VISTA III™ Database 
Development System 


db_VISTA Ill” $595 - 3960 
db_QUERY ” $595 - 3960 
db_ REVISE ” $595 - 3960 


db_ VISTA” File Manager 


We'll answer your questions, help 
determine your needs and get you started. 


CALL TODAY! | 
1-800-db-RAIMA 
(that’s 1-800-327-2462) 


RAIMA 


CORPORATION 


3055 112th Avenue N.E., Bellevue, WA 98004 (206)828-4636 
Telex: 6503018237MCIUW FAX: (206)828-3131 


Starts at $195 


al 
MasterCard 
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when the file was last modified, and 
st__ctime is the create time. In MS- 
DOS compilers such as Microsoft's, 
all three fields are set to the last- 
modified time because that’s the 
only information available from DOS. 

A related function, fstat(), works 
rather like stat() does, but it takes a 
FILE pointer as its first argument 
rather than a path name. 

The difftime() function returns 
the difference between two times, 
as returned by time() or stat(). Its 
calling syntax is: 


double difftime (t1, t2) 
time__t t1, t2; 


Note that the returned value is of 
type double, not time__t. Difftime() 
is necessary because you do not 
know the actual type of a time__t (it 
may be a structure, for example). 
Consequently, you can’t just sub- 
tract two times to get the difference 
if you want your code to be port- 
able. 

Note that the minimum resolu- 
tion available from time() is sec- 
onds. If you need fractional time, 
you need to use the ftime() func- 
tion. Its calling syntax is: 


#include <sys/types.h> 


#include <sys/timeb.h> 


void ftime( timep ) 
struct timeb *timep; 


The timeb structure is shown in 
Example 2, below. The two fields of 
interest are the time field, which 
holds the same value as would be 
returned from time(), and the mil- 
litm field, which holds an additional 
number of milliseconds (thou- 
sandths of a second). Note that the 
resolution here is not better than 
your system clock. For example, the 
IBM PC clock ticks 18.2 times a 
second, so the maximum resolution 
on a PC is 54 milliseconds. 

The second level of time functions 
all represent the time as a structure, 
also declared in time.h (and shown 
in Example 3, below). 

Two functions—gmtime() and lo- 
caltime()—convert the  time_t 
times, as returned by time() or 
stat(), into tm structures. They both 
have the same calling syntax: 


struct tm *gmtime ( time ) 
struct tm *localtime( time ) 


time__t *time_—_ptr; 
Gmtime() converts to Greenwich 


Mean Time, and localtime() goes to 
the current local time. Note that 


youre passing in a pointer to a vari- 


he diff ference moving : gentuaea. fa 
U tes, between Greenwich Mean Time 
and the local time. © 
Nonzero if daylight savings time. is 
in oo — : | 











/* hour 
. eer 
' second 


*/ 


daylight savings time is active 
/k year - 1900 _ oe & 
/* month; January == 0 tr 
/* day of the month 7 
_ {* day of the week; Sunday = == 0 x] 
_ /* number of elapsed days since. 





| /* January 1, January 1 == 0 */ 








able that holds the time, not the 
time itself. 

The local time is determined in 
mysterious ways, depending on 
your system. Most Unix systems 
have it hard-coded into the local- 
time() function, which automatically 
figures out the peculiarities of day- 
light savings time and so forth. Many 
compilers, however, use an environ- 
ment variable to determine the local 
time. For example, Microsoft's uses 
an environment variable called TZ 
for this purpose. It’s set to a string 
something like PST8PDT, which says 
that Pacific Standard Time (PST) is 8 
hours off Greenwich and that Pacific 
Daylight Time (PDT) is 1 hour off 
that. Microsoft provides a_ tzset() 
function that can be used to set this 
environment variable from within a 
program. In Unix, the name of the 
current time zone is_ available 
through the timezone() function. 
Consult the ctime(3) section of the 
manual for details. 

The mktime() function goes in 
the other direction. It takes as input 
a tm structure and returns the 
equivalent time in a time_t, as 
would have been returned by 
time(). The calling syntax is: 


time__t mktime(time__ptr) 
struct tm *time__ptr; 


Mktime() can also be used to flush 
out the tm_—_mday and tm__yday 
fields of the structure. That is, if you 
want to find out the day of the week 
for a particular day, you can fill up 
a tm structure yourself, leaving the 
tm__wday and tm__yday fields 
empty, and then mktime() will 
modify those fields as required. 

Three functions are provided for 
printing the time: _ strftime(), 
ctime(), and asctime(). Strftime() is 
an ANSI function, not supported by 
Unix, that works something like 
sprintf() does. Because it’s not im- 
plemented by most compilers, I 
won't discuss it further. Calling syn- 
taxes for the other two functions 
are: 


char *asctime( time ) 
struct tm *time; 


char ctime( tp ) 
time__t *tp; 
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They both return a string that is 
exactly 26 characters long and has 
the following form: 


Wed Jul 22 11:57:45 1987\n\0 


Asctime() takes a pointer to a tm 
structure as its argument, as is re- 
turned from gmtime() or localtime(). 
Ctime() takes a pointer to a time__t 
argument, as is returned by time() 
or stat(). Note, again, that this argu- 
ment is a pointer to a variable hold- 
ing the time, not to the time itself. 


Calendar.c 

Calendar is a DOS version of the 
Unix memo program. It searches a 
file called calendar, which must be 
in the current directory, for lines 
starting with a date, and if that date 
is either today or tomorrow, it prints 
the line. Note that this behaviour 
differs from that of the Unix pro- 
gram, which allows the date to be 
anywhere on the line. My implemen- 
tation ignores white space that pre- 
cedes the date, but no other charac- 
ters can be present. “Tomorrow” for 
weekends is extended to include the 
following Monday. 

My calendar, unlike the Unix ver- 
sion, returns an exit status of 0 
when it prints something (nonzero 
if it doesn't). I invoke it from the 
LOGIN.BAT file used by my shell 
with the following: 


calendar 

if( $status = = 
bell 
bell 

endif 


) then 


Bell is a two-line program that rings 
the bell on the PC. This way I get 
both the message and an audible 
signal when I have something to do. 
You could do the same thing from 
within a COMMAND.COM batch file 
by using the ERRORLEVEL mecha- 
nism. 

The program recognizes most 
forms of dates, though the date 
must take the form of month, then 
day, then year; neither 87-9-17 nor 
17 Sept is recognized. All the fol- 
lowing are recognized, however: 


Sept. 7, 1987 


September 7 '87 
Sep. 7 
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PC/Vr 


UNIX’s VI Editor Now Available For Your PC! 


Are you being as productive as you can be with your computer? 
An editor should be a tool, not an obstacle to getting the job done. 
Increase your productivity today by choosing PC/VI—a COMPLETE 
implementation of UNIX* VI version 3.9 (as provided with System V 
Release 2). 

PC/VI is an implementation of the most powerful and most 
widely used full-screen editor available under the UNIX operating 
system. The following is only a hint of the power behind PC/VI: 

e Global search or search and replace using regular expressions 

e Full undo capability 

e Deletions, changes and cursor positioning on character, word, 
line, sentence, paragraph, section or global basis 

¢ Editing of files larger than available memory 

e Shell escapes to DOS 

e Copying and moving text 

e Macros and Word abbreviations 

e Many controllable options including Auto-indent, Showmatch, 
and Wrap Margin 

e Filter text through external programs AND MORE! 

Don't take it from us. Here’s what some of our customers 
say: “Just what I was looking for!’ “It’s great!’} “Just like the real 
VI!’. “The documentation is so good I have already learned 
things about VI that I never knew before.” — IEEE Software, 
September 1986. 

PC/VI is available for IBM-PC’s and generic MS-DOS? systems 
for only $149. Included are CTAGS and SPLIT utilities, TERMCAP 
function library, and an IBM-PC specific version which enhances 
performance by as much as TEN FOLD! 


PC/TOOLS’ 


What makes UNIX so powerful? Sleek, Fast, and 
POWERFUL utilities! UNIX gives the user not dozens, but 
hundreds of tools. Now the most powerful and popular of these are 
available for your PC! Each is a complete implementation of the 
UNIX program. Open up our toolbox and find: 





° ASA «© COMM. e DIFF3 e MV ° SEE e TR 

« BANNER e CP « FIND « OD e SORT e TOUCH 
« BFS SoU e GREP e PASTE -~_e SPLIT e UNIQ 

e CAL e DATE e HEAD e PR e STRINGS e« WC 

e CAT e DIFF e LS e RM e SUM 

* CHMOD « DIFFH’~ e« MAKE « SED ° TAIL 


All of these for a limited introductory price of only $49.00; 
naturally, extensive documentation is included! 


PC/SPELL 


Why settle for a spelling checker which can only compare words 
against its limited dictionary database when PC/SPELL is now 
available? PC/SPELL is a complete implementation of the UNIX 
spelling checker, renowned for its understanding of the rules of 
English! PC/SPELL determines if a word is correctly spelled by 
not only checking its database, but also by testing such 
transformations as pluralization and the addition and deletion 
of prefixes and suffixes. For only $49.00, PC/SPELL is the first 
and last spelling checker you will ever need! 

AGORA PR ERRERISST 





Buy PC/VI and PC/TOOLS now and get PC/SPELL for only 
$1.00! Site licenses are available. Dealer inquiries invited. MA 
residents add 5% sales tax. AMEX, MC and Visa accepted without 
surcharge. Thirty day money back guarantee if not satisfied! 
Available in 514”, 342” and 8” disk formats. For more information 
call today! «unix is a trademark of AT&T. +MS-DOS is a trademark of Microsoft. 

CUSTOM SOFTWARE SYSTEMS 


PO. BOX 678 « NATICK, MA 01760 
617° 653 2555 
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THE CURE 


FOR COMMON CODE 


pa VN you getting the recommended monthly 

iil allowance of C, Assembly, Forth, Pascal, 
BASIC or Modula-2? Subscribe to Dr. Dobb’s 
Journal of Software Tools and you won't catch 
any nasty bugs again! 
Each month the Doctor brings you aid for 
ailing algorithms and the cure for common 
code. For the latest developments in 
software design and pages of code that will 
make you a more productive programmer, 
take the Dr. Dobb’s prescription. 
For more than a decade, the programming 
elite have known Dr. Dobb’s Journal to be 
the foremost source of software tools. 
Subscribe now and get your monthly dose 
from the Doctor. 
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Dear Reader, November 1987, #133 : 


Dr. Dobb's has a long tradition of listening to its readers. We like to hear when something 

really helps or, for that matter, bothers you. In this hectic world of ours, however, it is often 
difficult to take time to write a letter. This card provides you with an easy way to correspond _ 
and, if you include your name and address, we may use appropriate comments in The Letters _ 
column. Simply fill it out and drop it in the mail. —Ed 
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C. CHEST 
(continued from page 119) 


sep 7 87 
9-7 

9/7 
9/7/87 

9 7 1987 
9-7-1987 


as are several other variants. Experi- 
ment and see if your favorite form 
works. If you use an asterisk in place 
of a month, then that day of every 
month is recognized—for example 
*/9 will be recognized on the ninth 
of every month. 

I've also added a non-Unix feature 
that recognizes days of the week 
(monday, tuesday, wednesday, and so 
forth). When these are used, memos 
are printed on the given day of every 
week (say, every Monday). 

You can abbreviate month and 
day-of-the-week names by leaving off 
letters at the ends of the words, but 
you can't leave off so many letters 
that a conflict is created. For exam- 
ple, you can’t use Ju because the 
program won't know if you mean 
June or July. The smallest possible 
abbreviations are shown in Listing 
One, page 108, on lines 42-51. Case 
is ignored, so SEP, sep, and Sep are 
all acceptable. 

Calendar gets confused if you 
start the text portion of the line with 
a character that could be part of the 
date and a partial date is specified. 
For example, if you say: 


9/17 4 for feast at Fran’s 


calendar will think that the date is 
September 19, 1904. 


9/17/87 4 for... 
9/17:4 for... 


are both OK, however; the first be- 
cause the whole date is specified, 
and the second because the colon 
will separate off any trailing num- 
bers. In general, avoid numbers, 
slashes, apostrophes, dashes, and pe- 
riods at the beginning of the memo 
text. 

The program itself is in Listing 
One. Most of it is in the main() 
subroutine, which starts on line 110. 
Today’s date is fetched on lines 125 
and 126, using the time() and local- 
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time() functions described earlier. 
Word-to-month conversion is done 
in the if statement on lines 140-178. 
The program just looks at the first 
few characters in the word in the 
stupidest way possible. It didn’t 
seem worth the effort to do things 
in a more efficient manner. 

Numeric parts of the date are split 
off on lines 180-195. Note that the 
month is only modified (on line 188) 
if it hasn’t been set previously (by 
the word-processing code). An aster- 
isk is translated to the current 
month on line 182. The stoi() sub- 
routine has appeared in this column 
several times in the past (it’s not 
part of this month’s listing). It works 
just like atoi() does, but it is passed 
a pointer to a character pointer and 
updates that pointer to point past 
the number. 

The tests on lines 198-200 check 
for unspecified parts of the date and 
fill in the equivalent information for 
today if necessary. That is, if the 
year isn't specified, the current year 
is used and so forth. 

The date is converted to an offset, 
in days, from the first of the year on 
lines 211-213. I'm doing this to make 


it easier to find tomorrow. Other- 
wise, the end of the month would 
present problems. The offset__to__ 
first__of_—month array is declared 
on lines 78-92. The if statement on 
line 212 adjusts for leap years (any 
year that is an even multiple of 4 
except for even centuries—1900 
wasn't a leap year). Finally, the ap- 
propriate lines are printed on lines 
227-235. 


Dateh.c 

The dateh program is used to auto- 
matically create #defines for the cur- 
rent date and time so that you can 
put a visible date stamp into a pro- 
gram’s log-in message. You can put 
it into a DOS batch file so that it’s 
invoked automatically before calling 
make. If you’re using my shell, you 
can do it with an alias: 


alias make 'dateh; make’ 


The output file was described ear- 
lier. It's created only when a file 
called dateh already exists in the 
current directory and it was not 
modified today. It behaves in this 
way for two reasons. First, you don’t 
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... Without DocuMotion™ | 


We've found that well indexed and easily accessed — 
documentation is a powerful tool and asset. Now you can > 
simply pop up DocuMotion to access, display and print your 
documentation. DocuMotion builds indexed document libraries 
from documentation contained in your source code or any text file. 


DocuMotion for programmers: 


e Your documentation is available 
ANYWHERE, ANY TIME. 

e Access, display and print your 
documentation by name or by 
user-defined categorization 
trees. 

® 19 function Microsoft Windows- 
style menu bar. 

® Powerful print & copy functions. 


DocuMotion for project mgrs: 
© Programmers produce more and 
better documentation. 


® Reduced function redundancy. 
® Greater programmer productivity. 


NWP - Intelligent Solutions, Inc. 


P.O. Box 20478 





DocuMotion for the PC: 


e Runs memory resident or non- 
resident on any IBM PC/XT/AT | 
or compatible. . 

© Compatible with all popular 
memory resident programs. 

® Requires only 93K RAM. 

© LAN compatible. 


DocuMotion is for YOU: 


Call NOW 1-612-884-5860 


At a special introductory 
price of ONLY $159.95 
with ANSI ‘C’ document library. 


Demo disk for $24.95 that puts the 
ANSI ‘C’ library functions on-line. 


Bloomington, MN. 55420-0478 
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UNLEASH YOUR 80386! 





Your 80386-based PC runs at least 
twice as fast as your old AT. This is good, 
but not great. The products described 
below will unleash the true potential of 
your 80386, giving you 4 to 16 times the 
power of your old AT. These new Micro- 
Way products include a family of 80386 
native code compilers and the mW1 167 
numeric coprocessor. 

Examples of the increases in capacity 
and performance include: 
e Programs compiled with MicroWay 


NDP Fortran-386 execute 2 to 8 times 
faster than those compiled with existing 
16-bit Fortrans. NDP Fortran-386 can 
also address up to 4 gigabytes of 
memory instead of the standard 640 
kbytes. MicroWay’s NDP compilers 
and the programs they generate run on 
MS-DOS or Unix V. 

e NDP Fortran-386 generates code for 
the 80287, 80387 or MicroWay’s 
mW1167. The mW1167 has a floating 
point throughput exceeding 2.5 mega- 


mW1167 Numeric 
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MicroWay 80386 Compilers 


NDP Fortran-386 and NDP C-386 are globally 
optimizing 80386 native code compilers that 
support a number of Numeric Data Processors, 
including the 80287, 80387 and mW1 167. They 
generate mainframe quality optimized code and 
are syntactically and operationally compatible to 
the Berkeley 4.2 Unix f77 and PCC compilers. 
MS-DOS specific extensions have been added 
where necessary to make it easy to port pro- 
grams written with Microsoft C or Fortran and 
R/M Fortran. 

The compilers are presently available in two 
formats: Microport Unix 5.3 or MS-DOS as ex- 
tended by the Phar Lap Tools. MicroWay will port 
them to other 80386 operating systems such as 
OS/2 as the need arises and as 80386 versions 
become available. 

The key to addressing more than 640 kbytes 
is the use of 32-bit integers to address arrays. 
NDP Fortran-386 generates 32-bit code which 
executes 3 to 8 times faster than the current 
generation of 16-bit compilers. There are three 
elements each of which contributes a factor of 2 
to this speed increase: very efficient use of 
80386 registers to store 32-bit entities, the use of 
inline 32-bit arithmetic instead of library calls, 
and a doubling in the effective utilization of the 
system data bus. 

An example of the benefit of excellent code is a 
32-bit matrix multiply. In this benchmark an NDP 
Fortran-386 program is run against the same 
program compiled with a 16-bit Fortran. Both 
programs were run on the same 80386 system. 
However, the 32-bit code ran 7.5 times faster 
than the 16-bit code, and 58.5 times faster than 
the 16-bit code executing on an IBM PC. 

NDP FORTRAN-386™ 
NOP C-SO6" a icin owns hese eae $595 


MicroWay Numerics 


The mW1167™ is a MicroWay designed high 
speed numeric coprocessor that works with the 
80386. It plugs into a 121 pin “Weitek” socket 
thatis actually a super set of the 80387. This soc- 
ket is available on a number of motherboards 
and accelerators including the AT&T 6386, 
Tandy 4000 and MicroWay Number Smasher 
386 (Jan. ’88). It combines the 64-bit Weitek 
1163/64 floating point multiplier/adder with a 
Weitek/Intel designed “glue chip”. The 
mW1167™ runs at 3.6 MegaWhetstones (com- 
piled with NDP Fortran-386) which is a factor of 
16 faster than an AT and 3 to 5 times faster than 


Monoputer™ - The INMOS T800-20 Trans- 
puter is a 32-bit computer on a chip that features 
a built-in floating point coprocessor. The T800 
can be used to build arbitrarily large parallel pro- 
cessing machines. The Monoputer comes with 
either the 20 MHz T800 or the T1414 (a T800 
without the NDP) and includes 2 megabytes of 
processor memory. Four or more Transputers 
can be easily linked together to form a Quad- 
puter. A single T800 is comparable in speed with 
an mW1167-equipped 80386. The compilers to 
drive one or more Monoputers include Occam, 
C, Fortran, Pascal and Prolog. 


Monoputer T414-20' .............. $1495 
Monoputer T800-20' .............. $1995 
Biputer™ T800/T4142.............. $4995 
Quadputer™ T414-202 ............. $6995 
‘Includes Occam 2includes TDS 

80287 ACCELERATORS 
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flops, which is 4 to 5 times the through- 
put of an 80387 and is comparable to 
the speed achieved by the VAX 8600. 
Equally important, whichever Micro- 
Way product you choose, you can be 
assured of the same excellent pre- and 
post-sales support that has made Micro- 
Way the world leader in PC numerics 
and high performance PC upgrades. 
For more information, please call the 
Technical Support Department at 
617-746-7341 


MicroWay* 
80386 Support 


80386 Multi-User Solutions 


AT8™ -This intelligent serial controller is designed 
to handle 8 users (16 with two boards) in a Xenix 
or Unix environment with as little as 3% degrada- 
tion in speed. It has been tested and approved by 
Compaa, Intel, NCR, Zenith, and the Department 
of Defense for use in high performance 80286 
and 80386 Xenix or Unix based multi-user 
systems 


MicroPort Unix 5.3 is a port of the new Unix 5.3 
to the 80386. MicroWay NDP-386 compilers 
currently run on this version of UNIX. 

MicroPort Unix 5.3 ............. from $399 


PC-MOS-386”™ is an 80386 operating environ 
ment that turns an AT with an AT8 into an MS- 
DOS multi-user system. The system makes it 
possible to run applications such as Lotus 1-2-3 
on terminals. The operating system also has a 
Phar Lap compatibility mode that runs programs 
developed with the Phar Lap versions of Micro- 
Way’s compilers 


Phar Lap™ created the first tools that make it 
possible to develop 80386 applications which 
run under MS-DOS yet take advantage of the full 
power of the 80386. These include an 80386 
monitor/loader that runs the 80386 in protected 
linear address mode, an assembler, linker and 
debugger. These tools are required for the MS- 


DOS version of the MicroWay NDP Compilers. 
Phar Lan: Tole. inci bs cceeciee $399 
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C CHEST 
(continued from page 121) 


want myriad date.h files littering all 
your directories. Second, if you're 
using a make utility, you only want 
to recompile the file that #includes 
date.h once a day. 

The program’s behavior can be 
modified with the following com- 
mand-line switches: 


~f—forces an update, even if the 
date stamp is today’s. 

—v—verbose operation. The program 
tells you about the current date and 
so forth as it runs. 

—c—forces dateh to create the file if 
it doesn’t already exist. 


The source code for dateh is in 
Listing Two, page 110. It is much 
more straightforward than calen- 
dar.c. Command-line switches are 
processed on lines 50-65. The stat() 
call on line 69 does two things. It 
tests for the existence of a file called 
date.h (stat returns -1 if the file 
doesn’t exist), and if the file does 
indeed exist, it initializes the stats 
structure with the relevant statistics. 
Here, I’m interested in the last-modi- 
fied date stamp held in _ the 
st__mtime field. This field is con- 
verted to a tm structure by the local- 
time() call on line 79. I do the same 
thing for today’s date and time on 
line 86. Finally, the two times are 
compared on line 91. The rest of the 
subroutine just modifies the date.h 
file if the date stamps don’t match, 
getting the relevant information from 
the tm structure pointed to by t. 


Note 

1. My shell is described in my book 
On Command: Writing a Unix-Like 
Shell for MS-DOS (Redwood City, 
Calif.: M&T Books, 1987). 


DDJ 


(Listings begin on page 108.) 


Vote for your favorite feature/article. 
Circle Reader Service No. 7. 


Dr. Dobb’s Journal, November 1987 





NEW! 
VERY FAST EGA TOOLKIT 
FOR TURBO C® and MICROSOFT® C 


For high-resolution (640x350, 16/64) color graphics, this toolkit 

is unsurpassed. 90 well-integrated functions, incorporating design 
features hitherto not implemented in microcomputers, crafted to 
achieve highest speed possible in mode 16. Requires only 128k-EGA 
board. 384k+ system. Small, compact, medium and large models. 


“Probably fastest spline functions available for microcomputer. 
“Fast running fills (including spline-and-fill), versatile flood. 
“Create graphics fonts (any size), or use HP LASERJET PLUS™ fonts. 
“Set "text window" for auto-scroll/wrap (optional word-wrap): 
works with both IBM® (25/43) and graphics fonts. 
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“Over 12 get/put/mov/swap/mask/paint/save/load ‘pic’ functions to 
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16-color images. 
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by popular PAINT programs. 
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Prototype Systems Ltd. 
637 17th Street 
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"Faster and better in no time' 


Create better, faster, higher quality and easier to read progams in a 
fraction of the time. Let your system do the work for you. With 23 
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- Interactive and batch execution 

- Online documentation 
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COLUMNS 


his month I'm going report on 
al same new algorithms for heuris- 
tic searching. Heuristic approaches, 
as you may know, differ from con- 
ventional searching by improving 
their performance over time, by 
“learning” the characteristics of the 
data and the requests normally 
made of it. In this column I'll pre- 
sent algorithms for searching both 
unsorted and sorted arrays: the meth- 
ods for searching through unsorted 
arrays borrow from statistical time- 
series analysis to create a short-term 
heuristic memory, whereas the meth- 
ods for sorted arrays are variations 
on the traditional index table search 
scheme. 


Unsorted Arrays 

The simplest case of a heuristic 
search involves searching through 
an unsorted array or list. The search 
begins with the first array element 
and examines the rest of the array 
until a match is found. If the 
matched element is not the first 
array member, it is swapped with 
the previous array element. Thus, 
the most frequently sought elements 
tend to bubble toward the front end 
of the array. 

Listing One, page 112, shows a 
Pascal function that implements a 
version of the simple _ heuristic 
search algorithm. The Pascal func- 
tion passes an array of data as well 
as an array of indices. The values of 
the indices rather than the mem- 
bers of array Data are swapped. This 
approach is more convenient and 


by Namir Clement Shammas 


faster when record structures are 
used and the search is performed 
for various keys. 

This simple method may be too 
simple, though. Using it, you may 
experience any of the following situ- 
ations, based on the pattern of the 
data and requests: 
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1. The statistical probability distribu- 
tion for seeking any element is uni- 
form. In this case, the benefit of 
using this method over a simple 
linear search depends on the actual 
sequence of sought elements. Thus, 
the advantage of a heuristic search, 
at least of this simple kind, is most 
likely minimal. 

2. The statistical probability distribu- 
tion for seeking array elements 
strongly favors a particular set of 
data. Using the simple heuristic 
method is the most efficient in this 
situation. 

3. There is a shifting trend for seek- 
ing different data sets in the array 
(that is, the statistical probability dis- 
tribution for seeking any element is 
also a function of time or call se- 
quence). Here the efficiency of the 
algorithm is also shifting: after a spe- 
cific set of data bubbles toward the 
front of the array, the trend shifts in 
favor of another set. This causes the 
members of the new set to bubble 
toward the front and displace the 
ones from the previous set. As a 
result, the efficiency of the algorithm 
drops to a minimum during a shift 
in such trends because the sought 
elements are either in the middle or 
at the tail. 


It is this last case that I want to 
examine more closely. It is possible 
to improve the algorithm to take 
advantage of any patterning of need 
if you consider the following ques- 
tions: When do you start searching 
at the lower array bound? When do 
you start backward searching at the 
upper array bound? And when do 
you start bidirectional searching 


STRUCTURED PROGRAMMING 


beginning at the median element? 

These three questions have a 
common solution: you predict the 
location of the next element from 
the history of search locations. 
There exists in statistical time-series 
analysis a tool to do just this. In the 
following discussion, I use_ the 
weighted average method to provide 
projections for the next sought loca- 
tion. The equation (which I'll call 
equation 1) involved is: 


L{n + 1) = (1-f)(Lin) + fL{n—-1) + L[n-2] 
asa) 


where L{1]...L{n] is the array of 
locations found and f is a fractional 
factor. L{n] is the location of the last 
search, L{n—1] is the location of the 
one before it, and so on. The value 
of f is usually calculated from the 
autocorrelation coefficient associ- 
ated with a given set of values of 
array L. For the sake of reducing 
computing time, however, f is as- 
signed a fixed value (say 0.70). As the 
value of the f factor approaches 
unity, more weight is given to the 
“older” data, and vice versa. 

With the predicted next location 
at hand, you can determine the 
search scheme: first to last, bidirec- 
tional to middle, and last to first. 
This is expressed in the following 
conditions: 


1. If L[n+1)/array size) > 0.65, then 
use the last-to-first search scheme. 
2. If L[n+1)/array size) < 0.35, then 
use the first-to-last search scheme. 
3. If 0.35 <= L{n+1)\(array size) <= 
0.65, then use the _ bidirectional- 
middle search scheme. 


Listing Two, page 112, shows the 
Pascal function Search2, which em- 
ploys the modified heuristic method 
just described. It uses equation 1 
with f=0.70. The last four search 
location values are used to predict 
the next search location, and the 
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With more than 70 new functions added to our popular libraries, 
Greenleaf is now the most complete and mature C language function 
resource available. It’s no wonder we’ve been rated the best. Winning 
program developers in major corporations such as IBM, EDS and GM 
have proven our reliability in thousands of applications. 


programming windows tool 
available, puts windows, transaction 
data entry and menus at your 
fingertips. 

Our new TURBO C versions are 
ready to get you going fast! And, 
our new 3-in-1 C Sampler for only 
$94.50 supports both Turbo C and 
Quick C with comm, windows, 
menus and more! Our libraries 


support all popular C compilers for 
MS DOS. 


New Greenleaf Functions v.3.10 includes 295 of the functions you’ve 
been asking for — DOS, disk, video, color text and graphics, string, 
time/date, keyboard, plus many more! With Greenleaf, 
you'll finish faster. 


When it comes to merging information, the new Greenleaf Comm 
Library v.2.10 is the fastest communications facility of 
its kind. Over 120 functions — ring buffered, 
interrupt-driven asynchronous communications. And, 
only Greenleaf gives you the power to build a 16-port 
communication system. 





In Texas and Alaska: 
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Order your new Greenleaf library today! See your ee 





Greenleaf Functions $185.00 

Greenleaf DataWindows $225.00 
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Digiboard Comm4 $325.00 Greenleaf Software, Inc. 

Digiboard Comm8’g $535.00 16479 Dallas Parkway, Suite 570 
In stock, shipped next day. Dallas, Texas 75248 
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STRUCTURED PROGRAMMING 
(continued from page 124) 


predicted next location is calculated 
as a fraction of the total number of 
array elements. This fractional value 
is then used in selecting the search 
scheme. Notice that the function up- 
dates the search location history 
only when matches are found. 


Ordered Arrays 

Conventional (nonheuristic) search- 
ing through ordered arrays usually 
employs index tables. The search for 
a given datum begins in the index 
table whose entries define a range 
to be examined in the array. The 
sought datum may or may not find 
its match within that range and is 
guaranteed not to match outside the 
range. Normally, the index tables are 
specified ahead or initialized to set 
the table entries based on the avail- 
able data. For an array in which no 
new members are added and none 
are removed, the index table re- 
mains the same. 

This is the basis on which I will 
now develop and discuss two heu- 
ristic search methods for ordered 
arrays. The basic scheme I use is the 
dynamic modification of the index 
table as influenced by the sought 
data. 

In the first of these methods, the 
index table is constantly changing 
at run time. It is first initialized by 
taking evenly spaced elements from 
the data array. The index table itself 
is an array with a lower bound of 0. 
The value of the table entry at the 
lower bound points to the first ele- 
ment (with common values of 0 or 
1) of the data array. The basic algo- 
rithm for searching and updating 


the heuristic index table is: 


1. Scan the array elements to com- 
pare the search datum with the 
table entries. Determine the indices 
to the “first” and “last’’ members of 
the data array. Let K be the table 
index that points to the first 
member. 

2. Search the data array in the range 
first ... last. 

3. Return the index of the matching 
element and replace the Kth index 
table entry with the matching data 
if a match is found. 

4. Return a special coded integer if 
no match is found. 


Listing Three, page 112, shows a 
Pascal function Search3 that imple- 
ments this algorithm and a proce- 
dure that initializes the index table. 

One of the weaknesses of this heu- 
ristic search method is that the 
index table may contain entries of 
clustered data. The loss of uniformly 
distributed or well-spread indices is 
a major factor in the deterioration 
of search efficiency. To remedy this 
clustering problem, I suggest a 
second method. This new variant 
combines a few aspects from tradi- 
tional index tables with the ones in 
the previous method. The result is a 
heuristic index table with both fixed 
and replaceable entries. The index 
table consists of several sections 
such that each section begins with 
one fixed entry followed by m re- 
placeable entries. The algorithm is 
very similar to that of the previous 
method: 


1. Search the data array in the range 
first ... last. 
2. If a match is found, return the 
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index of the matching element. 

3. If (K-1) is not 0 or a multiple of 
(m+41), replace the Kth index table 
entry with the matching data. 

4. If no match is found, return a 
special coded integer. 


The test in step 3 protects the fixed 
entries from being overwritten. This 
simple modification provides anchor 
points in the heuristic index table. 
You can set up the index table using 
the same method as for the previous 
search algorithm. 

I’ve discussed all the algorithms I 
promised, but I can't resist pointing 
out an interesting variation of the 
second search method that can be 
applied to data stored in binary 
trees. In this variation, a modified 
index table employs pointers instead 
of integer indices, with the pointers 
used to indicate the node at which 
you start the search in a binary tree 
rather than taking the traditional ap- 
proach of starting at its root node. 
By using the combination of fixed 
and replaceable pointers in the 
index table, efficient searching is 
maintained. Because the fixed array 
is stored in a binary tree, you can 
easily construct a balanced or near- 
balanced binary tree, which adds 
even more to the efficiency of the 
search. 

If you have developed other heu- 
ristic search schemes, I would like 
to hear from you. Please write to me 
care of DDJ. 


Availability 

All the source code for articles in 
this issue is available on a single 
disk. To order, send $14.95 to Dr. 
Dobb’s Journal, 501 Galveston Dr., 
Redwood City, CA 94063, or call (415) 
366-3600, ext. 216. Please specify the 
issue number and format (MS-DOS, 
Macintosh, Kaypro). 


DDS 
(Listings begin on page 112.) 
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The newsletter/disk publication for Turbo Pascal® users 


Are you looking for powerful utilities written in Turbo 
Pascal that you can use to develop software or incorporate 
into your programs? Are you interested in improving and 
expanding your Turbo Pascal programming skills? 

Then you deserve a subscription to Turbo Tech 
Report, the bimonthly newsletter /disk publication from 
the publishers of Dr. Dobb’s Journal and Micro/Systems 
Journal. Each issue delivers more than 250K of Turbo 
Pascal source code programs on disk, and 24+ pages of 
articles, Turbo Pascal software and book reviews, and 


analysis and commentary. 
It’s the only publication 
delivering such focused tech- 
nical articles with code on 
disk. Each valuable issue 
contains: 

¢ Articles on topics like 
speedy 3D graphics, math- 
ematical expression parsers, 
creating global gotos, mem- 
ory resident and AI applica- 
tions and more—all written 
by Turbo experts. 

e Reviews of the latest 
Turbo Pascal software pro- 
grams from companies like 
Borland International, Blaise 
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Computing, Media Cybernetics, Nostradamus, and more! 

¢ News and commentary detailing the latest 
products and developments in the Turbo Pascal 
programming community. 

¢ A disk filled with Turbo Pascal code! You'll get 
the Turbo Pascal utilities and routines discussed in the 
newsletter’s articles, as well as applications developed by 
Turbo users from around the world. You'll receive 
programs that make labels, generate menus, provide 
faster screen access, transfer files, and more! 


If you're an expert Turbo 
Pascal programmer or a 
novice interested in 
expanding your Turbo skills, 
you need a publication that 
speaks your language: Turbo 
Tech Report. Subscribe 
today at the special price of 
just $99—that’s 33% off the 
regular price of $150. To 
order by credit card, call toll- 
free 1-800-533-4372. Or 
mail the coupon with your 
payment to Turbo Tech 
Report, 501 Galveston 
Drive, Redwood City, CA 
94063. 
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OS/286 & 386 - Access 16M RAM 
in 286, 386 native mode. DOS 
interface, access. Use existing 
compilers or 32-bit FORTRAN, C, 
PASCAL. PC $ 495 


Al-Expert System Dev’t 


Arity Combination Package PC $ 979 
System - use with C MS $ 229 
Auto-Intelligence PC-3139 
CxPERT - shell for C MS $ 259 
Experteach II PC R39 
Exsys PC $ 289 
Level 5 MS $ 659 
Intelligence/Compiler PC $739 
Tis Pe Easy PC $ 435 


Personal Consultant Plus PC $2589 
Turbo Expert-Startup(400 rules) PC $ 129 
Corporate (4000 rules) PC $ 359 


Al-Lisp 





PC Scheme LISP - by TI PC $ 85 
Star Sapphire MS $ 459 
TransLISP - learn fast MS $ 79 
TransLISP PLUS MS $ 149 


Others: IQ LISP ($155), IQC LISP ($269) 


Al Prolog 


APT - Active Prolog Tutor - build 
applications interactively PC $ 49 
ARITY Prolog - Interpreter PC $ 229 
COMPILER/Interpreter-EXE PC $ 569 
MicroProlog Prof. Comp./Inter. MS $ 439 
Prolog-86 - Learn Fast MS $ 89 
Prolog-86 Plus - Develop MS $ 199 
TURBO PROLOG by Borland PC $ 69 
Turbo Prolog Toolbox PC $69 


Basic 


BAS_C - economy MS $ 179 
BAS_PAS - economy MS $ 135 
Basic Development System PC $ 105 
Basic Development Tools PC S88 


BetterBASIC PCS 129 
Exim Toolkit - full PC 45 
Finally - by Komputerwerks PC 85 
Inside Track Pe 49 
Mach 2 by MicroHelp PC 55 
Peeks ‘n Pokes PC 35 
QBase Screens MS 

QuickBASIC PC 69 


Quick Pak - by Crescent SoftwarePC 
Quick-Tools by BC Associates PC 
True Basic PC 
Turbo BASIC - by Borland he 
Turbo BASIC Database Toolbox MS 


FEATURES 


XENIX 386 Toolkit by Santa Cruz. 
Tools & OS kernel support 4 Gigabyte 
address space, demand paging, virtual 
memory paging. Includes MS C, MASM, 
debugger, file utilities, link kit, 
runtime library. PC $379 


HI-SCREEN XL - unlimited overlapping 
windows, pulldown, popup, Lotus 
menus, on-line help support. Field 
checking, scrolling. Screen capture, 
more. Multi-language support. PC $ 129 


Note: Mention this ad. Some prices are specials. Ask about COD 
and POs. Formats: 3” laptop now available. plus 200 others. UPS 
surface shipping add $3/item. All prices subject to change without 
notice. 
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“FREE” Software 


Instant Programmer’s Help for MSDOS de- 
velopers by Second City Software. Memory-resi- 
dent (TSR) utility lets you access valuable prog- 
rammer’s reference material from within any pro- 
gram. OS services, BIOS calls, ASCII codes, 
line and box drawing characters, video modes, 
keyboard scan codes, interrupts, 8088 assembly 
language, memory maps, FCB. 


Normally $79. With any order over $250 by 
11/30/87 get Instant Programmer’s Help (with 
2-month life span) FREE. 

Our Services: 
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* Compare Products * Newsletter 

* Help find a Publisher * Rush Order 

+ Evaluation Literature FREE = * Over 700 products 
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Microfocus Cobol I/Q PC $ 395 
Cobol splII PC $329 
Level II COBOL MS $ 279 
Personal COBOL PC $ 119 
Professional Cobol PC $1195 

Microsoft COBOL MS $ 429 

COBOL Tools PC $ 209 

Realia - very fast MS $ 895 

PCDT by Procode MS $ 949 


Ryan McFarland COBOL MS Call 
COBOL-85 MS Call 


Screenplay by Flexus PCS: 149 
C Language-Compilers 
AZTEC C86 - Commercial PC $499 
C86 PLUS - by Cl MS $359 
Datalight Optimum-C MS $ 99 
with Light Tools by Blaise PC $168 
Lattice C - from Lattice MS $269 
Let’s C Combo Pack PC $ 99 
Microsoft C 5.0- Codeview MS $275 
Microsoft Quick C MS $ 69 
Rex - C/86 - standalone ROM MS $695 
Turbo C by Borland PC $ 69 
C Libraries-Communications 
Asynch by Blaise Pe 38125 
Essential Comm Library PC. $ 125 
With Breakout Debugger PC $ 189 
Greenleaf Comm Library PC $ 129 


Multi-Comm - add multitasking PC $ 135 


DBASE Language 
Clipper compiler PC 3: 399 
dBASE II MS $ 329 
dBase III Plus PC $ 429 
dBASE II] LANPack PC $ 649 
DBXL Interpreter PC $ 139 
FoxBASE+ - V2.0 MS $ 289 
Quicksilver by Word Tech PC $ 499 


DBASE Support 
dAnalyst PC $ 89 
dBase Tools for C PE-3.65 
dBrief with Brief - Auto-Indent, 

views structures PC :-Call 
dBC ISAM by Lattice MS 169 


Documentor - dFlow superset MS 


Genifer by Bytel-code generator MS $ 279 
QuickCode III Plus MS $ 239 
R&R Report Generator MS 

Seek-It - Query-by-example PC 79 
Silver Comm Library MS 139 


Tom Rettig’s Library PC 
UI Programmer-user interfaces PC 
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The Baler - compiles Lotus 1-2-3 
(1A, 2.01, or VP-Planner). Protect code, 
speed execution, save disk space, 
password capability, user does not 
need 1-2-3. No Royalties. PC $ 459 


Editors for Programming 


BRIEF Programmer's Editor PC Call 
EMACS by UniPress Source: $895 $ 265 


Epsilon - like EMACS PC $ 149 
KEDIT - like XEDIT PC $ 99 
ME Macro Editor - Source PC $79 
Micro Focus Micro/SPF PC $ 139 
PC/EDT - macros PC $ 229 
PC/VI - by Custom Software MS $ 109 
Personal REXX - V1.6 PC $ 99 
PMATE - power, multitask = PC $ 109 
SPF/PC - Version 2.0 PC $ 189 
Vedit MS $ 99 
Vedit PLUS MS $ 129 


C Language-interpreters 


C-terp by Gimpel - full K & R MS $219 
C Trainer - by Catalytix PC $ 89 
INSTANT C - Source debug, 

Edit to Run-3 seconds, .OBJs MS $369 
Interactive C by IMPACC Assoc. PC $189 
Run/C Professional MS $155 
Run/C Lite MS $ 79 


C Libraries-General 


Blackstar C Function Library PC $119 
C Essentials - 200 functions PC 3-75 
C Tools Plus (1 & 2) - Blaise PC $135 
C Utilities by Essential PC $119 
Entelekon C Function Library PC $119 
Entelekon Superfonts for C PC $ 45 
Greenleaf Functions-portable, ASM $139 


LIGHT TOOLS by Blaise PC $ 69 
C Libraries-Files 

C Index by Trio MS $ 89 
/File is object only MS $ 89 
/Plus is full source MS $319 

BTree by Soft Focus MS $ 69 


CBTREE- Source, noroyalties MS $ 99 
CTree by Faircom-noroyalties MS $315 


ctree w/ rtree MS $519 
rtree - report generation PC aa> 
dB2C Toolkit V2.0 MS $249 


dbQUERY - ad hoc, SQL- based MS Call 
dbVISTA - full indexing, plus optional 
record types, pointers, Network. 
Object only - MS C, LAT, C86 Call 


Source - Single user MS Call 
Source - Multiuser MS Call 
dBx - translator MS $299 
w/source to library MS $429 
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HUMMINGBOARD 386-Develop 2.6 or 
7.9 times faster thana 8 MHZAT. 
AT or XT addin board uses dual 
processors for Speed and Hardware 
Debugging. 16 MHZ or 20 MHZ. Call 
about Benchmarks, Trial Program. 


Greenleaf C Sampler - 107 functions 
for communications, windows, menus, 
business graphics, keyboard control 
from popular Greenleaf libraries. Turbo 
Quick C support. No royalties. PC $169 
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C Support-Systems Fortran & Supporting at eh aa 
Advantage C+ + PC $479 50:More FORTRAN PC $ 95 ACTOR by Whitewater Group - Graphic, 
C Sharp - realtime, tasks. PC $495 ACS Time Series MS $389 object-oriented language for proto- 
C ToolSet - DIFF, xref, source MS $ 89 I/O Pro - screen development PC $129 typing, interactive programs and MS 
Multi-C - multitasking PC $135 MACFortran by Microsoft MAC $229 Windows applications. Fast feedback, 
PC LINT-Checker. Amiga $89 MS $ 99 MS Fortran - 4.0, full 77’ MS $279 integrated editor, debugger. Call 
Pfantasy Pac - by Phoenix PC $599 No Limit - Fortran Scientific PC $109 to multiple languages. PC $ 419 
PforCe + + PC $215 Numerical Analyst by Magus PC $249 |OtherLanguages 
Pre-C - Lint-Like MS $155 RM/Fortran se MS Call sit eek Bi 
Quickshell - script compiler PC $349 Scientific Subroutines - Matrix MS $129 APL*PLUS/PC PC $ 369 
Sapiens V8 - 8M workspace PC $269 Multilanguage Support CCS Mumps - Multiuser PC $ 359 
SECURITY LIB - Source $229 PC $115 Meals 8 ed pag eM ee 
Talaelionr PC $265 BTRIEVE ISAM MS $185 Microsoft MASM MS $ 98 
with library source PC $895 BTRIEVE/N-multiuser MS $455 Modula-2 - V3.0 Compiler Pack PC $ 89 
' Flash-Up Windows PC $ 79 Modula-2 - V3.0 Dev. System PC $ 219 
C-Screens, Windows, Graphics GSS Graphics Dev’t Toolkit | PC $375 PC Forth+ - by Lab Micro PC $ 189 
C Power Windows by Entelekon PC $109 Hoops Graphics Library PC $549 Smalltalk/V _ MS $ 85 
C Worthy Interface Library PC $249 Informix 4GL-application builder PC $789 SNOBOL4 + - great for strings MS.$ 80 
Curses by Aspen Scientific PC $109 Informix SQL - ANSI standard PC $639 UR/Forth MS $ 259 
ESSENTIAL GRAPHICS - fast PC $185 Opt Tech Sort - sort, merge = MS $ 99 ee 
FontWINDOW/PLUS PC $229 PANEL MS $215 386 Debug - by Phar Lap PC $129 
GraphiC - new color version PC $279 Panel Plus MS $395 Breakout - by Essential PC $ 89 
Greenleaf Data Windows PC $159 Pfinish - by Phoenix MS $229 CODESMITH - visual PC $ 99 
w/source PC $269 PolyBoost - speed I/O, keyboard PC Call C SPRITE - data structures PC $119 
LightWINDOWS/C-for Datalight C PC $ 79 Polylibrarian by Polytron MS Call DSD87 PC $ 89 
Screen: Ace Form Master PC $195 PVCS Corporate or Personal MS Call Periscope | PC $289 
TurboWINDOW/C - for TurboC PC $ 79 Report Option - for Xtrieve MS $109 Periscope II PC $159 
Vitamin C - screen I/O PC $159 Screen Sculptor PC $ 89 Periscope II-X PC $105 
Windows for C - fast PC $189 SSP/PC - 145+ math routines PC $269 Periscope III- 1|OMHZ Version PC $899 
Windows for Data - validation PC $319 Synergy - create user interfaces MS $375 Pfix-86 Plus - by Phoenix PC $225 
View Manager - by Blaise PC $199 Xtrieve - organize database MS $199 Turbo TDebug PC $ 49 
ZView - screen generator MS $129 ZAP Communications - VT 100 PC $ 89 SoftProbe II - embedded systems PC $695 
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Now you see it; Now you don’t! 
TSR’s made easy with /*resident_C*/ 


Finally! You write your C program and we make it resident. 
No strings attached. Want to process interrupts also? No 
problem. /*resident_C*/is a set of C functions that enable 
you to process interrupts and/or make your programs "ter- 
minate stay resident" like Sidekick. 
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LINK & 
_ Bah LOCATE 


We’ve done the research, testing, and grunt work to make 
your TSR programs safe, compatible and easy. Be aware of 
the "ifs, ands and buts" when writing interrupt handling 
software. Only/*resident_C*/ has all that you need to write 
reliable interrupt handlers without the worries. 


LINK & LOCATE enables PC users to produce ROM-based 
firmware for 8086/87/186 from object files generated by 
popular C compilers, such as from Microsoft, Lattice and 


Borland’s Turbo C, and MASM from Microsoft, Provides full 
control of segment placement anywhere in memory. Sup- 
ports output of Intel HEX file for PROM programmers, Intel 
OMF absolute object file for symbolic debuggers and in- 
Circuit emulators. Includes Intel compatible linker, locator, 
librarian, hex formatter and cross reference generator. $350. 


NEW! Includes utility to support PC based PROM 
programmers. 
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3303 Harbor Bivd., C11, Costa Mesa, CA 92626 
Phone (714) 241-8650 FAX (714)241-0377 TWX 910-695-0125 


We don’t ask you to trust us either. Our manual explains 
what we are doing very clearly and our documented source 
code is available. In addition, our working demos give you 
clear examples of resident programs, interrupt handlers 
and resident libraries. There is no other product that can 
do what /*resident_C*/ can do for you. 


/* resident_C */ is the perfect complement to the other 
library products available from Essential Software. 





List: $99 / with Source add $99 
PS: $79 / with Source add $79 
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f you've been following this 
Mt coin, you will have noticed a 
strong emphasis on object-oriented 
tools. That’s because I've been 
deeply involved in the evaluation of 
object-oriented technology for the 
past year or two. I’m not alone: in 
the course of this evaluation, I've 
met many professional programmers 
from both large and small compa- 
nies who are evaluating or actively 
using object-oriented systems. Large 
companies such as Hewlett-Packard 
and General Motors are using object- 
oriented approaches in major devel- 
opment work. There is a major 
thrust going on in the industry just 
now to introduce this technology 
into important and even critical pro- 
jects. 

Nevertheless, some programmers 
and managers are reluctant to adopt 
object-oriented tools. I thought it 
would be a good idea to devote 
some column space this month to 
some of the reasons why people 
have, after investigating the para- 
digm, abandoned or avoided it. Also, 
if any of you have had the experi- 
ence of deciding whether to use the 
object-oriented approach in a major 
programming project, please write 
and tell me about your experience. 
I'm interested both in those in 
which you chose the object-oriented 
approach and those in which, after 
some serious study, you decided 
against it. 

I also discuss this month what 
object-oriented programming has to 
offer to artificial intelligence work, 


by Ernest R. Tello 


and I consider what tools are 
needed to really exploit the object- 
oriented paradigm in AI. 


Adventures in Object- 
Oriented Programming 

One programmer I spoke with is Al 
Globus, who works at NASA Ames 


130 










for the contractor Sterling Software. 
Al used an object-oriented C tool in 
a project involving simulating life 
patterns that might occur on the 
space station. Recently, Al went back 
to using straight C. His reasons for 
switching back intrigued me. But 
what intrigued me even more is that 
even though he was using regular 
C, he was still, in a way, doing object- 
oriented programming. He had aban- 
doned the tool but not the para- 
digm. 

The point is important and is 
often overlooked: it is not always 
necessary to use an object-oriented 
programming language to program 
in the object-oriented paradigm. Al 
admitted that it was primarily be- 
cause he had already worked on the 
program in an object-oriented lan- 
guage that he was able to do object- 
oriented programming in regular C. 
He had got to’ know the code and 
the problem addressed so well after 
writing the program once that it was 
not all that difficult to write it again 
without the aid of an object-oriented 
programming tool. 

I also spoke with Serge Hering, a 
software engineering consultant 
who evaluated an object-oriented C 
package as a candidate for a real- 
time system in an IBM PC/AT envi- 
ronment but decided against it. Al- 
though sympathetic toward the con- 
cept of object-oriented systems, 
Serge doubted that current tools 
and the industry at large had ma- 
tured enough for the concepts to be 
put to use in the project he was 
undertaking. As he put it, “Object- 
oriented concepts will have to en- 
compass all aspects of computing 
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systems to be really practical.” 

According to Serge, a true object- 
oriented C system needs to be more 
than just a preprocessor to C. It 
requires that the object-oriented para- 
digm be supported at the operating 
system level (he’s concerned with 
doing multitasking). After calling one 
of the vendors and questioning the 
staff on this point, he was told that 
object-oriented C on an AT was not 
a suitable vehicle for implementing 
a multitasking application. 

His basic position now is that 
object-oriented programming is an 
all-or-nothing affair. In order for it 
to really work, it will have to be 
adopted across the industry, or at- 
tempts at using it are liable to back- 
fire. The additional overhead re- 
quired by object-oriented systems, 
he feels, can be handled in the 
proper environment, but the danger 
is that aspects of a system that have 
not been implemented with the 
object-oriented approach in view 
could come back to haunt it unless 
the paradigm gets the kind of indus- 
trywide support he describes. 

Personally, I find Serge’s view, for 
all its merits, a bit too conservative. 
The most interesting point I think 
he raises is just what an object- 
oriented C that encompassed more 
than just a preprocessor to C might 
look like. I would be interested in 
hearing from readers who may have 
an idea on what such a “total” 
object-oriented system in the C envi- 
ronment might comprise. 


Object-Oriented 
Programming for AI 
But I haven't really explained why I 
am concentrating so much on 
object-oriented programming in a 
column ostensibly devoted to artifi- 
cial intelligence techniques. It’s 
simple, really. 

I believe that organizing programs 
along object-oriented lines is not 
only one of the best means we have 
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systems for PCs” 


Discover how powerful—and 
inexpensive—PC symbolic program- 
ming can be with PC Scheme from 
‘Texas Instruments. Whether you're an 
experienced Lisp programmer or just 
beginning, PC Scheme is the complete, 
$95* solution to your software 
development needs. PC Scheme 
combines elegant simplicity with 
remarkable speed in a full Lisp 
development system. Named PC 

Tech Journal’s Product of the Month 
(August 1986), PC Scheme brings 
professional Lisp programming 
features to personal computers. 


261933A 
© 1987 Texas Instruments Incorporated 


PC Scheme 3.0 


—Optimizing incremental byte-code 
compiler for ease of programming 
and operation 

—EMACS-like editor 

—Lexical scoping of variables 
—Ability to suspend PC Scheme, 
execute DOS-based programs, then 
return to PC Scheme 

—Random-file access and binary-file 
support 

—Extensions for debugging, graphics 
and windowing 

—External language interface to C, 
Turbo Pascal® and other languages 
—SCOOPS (Scheme Object- 
Oriented Programming System) 

— Two-megabyte extended/expanded 
memory support 

—New manuals with tutorials and 
examples 


Find out for yourself why experts are 
praising PC Scheme. For the dealer 
nearest you, or to order by phone, call 
toll-free: 


1-800-527-3500 


* TI Suggested list price 


PC Scheme runs on IBM® Personal Computers and compatibles 
(including the Texas Instruments Business-Pro™ computer). 
Minimum configuration: 512K RAM, dual floppy system. 


Turbo Pascal is a registered trademark of Borland International. 
IBM is a registered trademark of International Business Machines 
Corporation. Business-Pro is a trademark of Texas Instruments 
Incorporated. 
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so far for achieving greater program- 
ming efficiency and modularity but 
also that it has important implica- 
tions for the goals of AI. These po- 
tential advantages and implications 
do not come automatically with the 
use of the paradigm, but through it 
many of them seem to be much 
more attainable. Possibly one of the 
most important issues is the poten- 
tial of object-oriented systems for 
alleviating the problem of “sequen- 
tial closure” in programming. 

What I am referring to by the term 
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sequential closure is the fact that, in 
the current stage of software tech- 
nology, if part of a program breaks, 
then very often the whole program 
breaks. This stands in contrast to 
most living organisms, which show 
considerable resiliency or ‘fault tol- 
erance’” to breakdowns in their func- 
tioning parts. This phenomenon 
seems nowhere more prevalent than 
in the brain. Many studies have 
shown the astounding degree to 
which the brain can adjust to mas- 
sive tissue loss, for example. But, as 
we know, removing even a line from 
most programs can be fatal. 

As sequential closure is so much 





a part of current programming tech- 
nology, it might be useful to spell 
out why I think it is not the most 
desirable constraint to have. As I see 
it, there are three main conse- 
quences of the sequential closure of 
current software technology: 


1. A considerable amount of pro- 
gramming time must be spent not 
only in debugging but also in rede- 
bugging. 

2. There is an inherent limit to how 
“user-friendly” programs can be. 

3. There is an inherent limitation on 
the flexibility and generality of prob- 
lems that programs can address. 


Most programmers would agree, | 
think, that advances are needed to 
improve the state of our technology 
in at least one, if not all three of 
these areas. 

Object-oriented programming is 
not a magic fix for these problems, 
but there is at least one area in 
which, I believe, it can help signifi- 
cantly. The main feature of the 
object-oriented approach that 
makes this possible is the ability to 
accomplish a new and important 
degree of partitioning of large-scale 
functionality. 

Now there is nothing new about 
partitioning the functionality of the 
program. Libraries provide this. We 
currently take for granted the way 
that reusable library functions can 
be written so as to be used time and 
time again in a variety of situations. 
Of course, this reusability often 
comes only at the expense of a great 
deal of effort, but it is taken for 
granted that it is one of the goals of 
competent programming. 

The problem is that functions are 
still at a fine-grained level in the 
organization of most reasonably 
sized programs. The main sequence 
of code that calls the library func- 
tions is still very much subject to 
sequential closure. The code con- 
sists of a sequence of statements 
and subroutines that provides a clo- 
sure on the correct functioning of 
the program that often must be de- 
bugged and redebugged each time 
important modifications are made 
to the program. As programs get 
larger and more complex (as in the 
case of Al), it becomes imperative 
that much larger functioning parts 
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of programs have this packaged func- 
tionality so that they do not have to 
be repeatedly adjusted and de- 
bugged to accommodate changes 
and additions in other parts of the 
code. 

Object-oriented programming can 
provide broader-grained partitioning. 
This is, of course, one of the reasons 
that suggested to Doug Cox, the 
author of Object-Oriented Program- 
ming: An Evolutionary Approach (Ad- 
dison-Wesley, 1986), that object-ori- 
ented systems could be described 
as software ICs. 

In the case of hardware ICs, we 
have units of packaged functionality 
that can be used in a wide variety of 
cases without modification or fur- 
ther debugging. The scope of ordi- 
nary library functions is so narrow 
that no one has suggested that they 
be compared with ICs. It is only in 
the most rudimentary programs that 
functions operate as main operating 
parts within the program. 

Functions are usually at the same 
time too general and too specific to 
have this role. They are too general 
in that, rather than being a function- 
ing part of an actual program, they 
are more like standard nuts and 
bolts that come in an enormous 
variety of sizes. Without any argu- 
ments supplied, with many func- 
tions it is still often unclear just 
what they will do. 

On the other hand, functions are 
too specific in that the variety of 
situations to which they can re- 
spond is often very limited. A func- 
tion usually requires that the pro- 
grammer know in advance just what 
situation is being covered each time 
it is called. Functions are also spe- 
cific in that the types of things they 
are responsible for are usually fairly 
detailed, low-level operations. With 
objects, which are usually made up 
of several closely related and inter- 
acting functions, we have a way 
around this limitation. 

Consider classes. Classes in the 
object-oriented paradigm are a kind 
of IC template for stamping out 
custom working parts for a wide 
variety of programs. There may be 
only a small number of instances of 
that class that are actually used in a 
given program. But in making those 
instances, it is typical to assign 
values to instance variables that 
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define the conditions of a problem 
once and for all while still leaving 
open the issue of just what mes- 
sages will be sent to what objects at 
what time. What can be set without 
hand coding by the programmer, 
however, is what arguments these 
methods will take in a lot of cases. 
It is possible to have a systematic 
way of assigning whole sets of argu- 
ments to methods simply by setting 
values to instance variables at the 
time an object that acts as a func- 
tioning part of a program is initial- 
ized. I hope in a later column to 
provide some actual coded exam- 
ples of this. 





Inference Engines 
for Objects 
I believe that the object-oriented ap- 
proach has a lot to contribute to 
furthering the goals of AI. Using 
object-oriented systems to model 
problem domains can be a little de- 
ceptive, though, unless some crucial 
design issues are met. Simply creat- 
ing a static model of the unique 
aspects of a certain ‘‘world” of activ- 
ity, such as the world of medical 
diagnosis or electronic troubleshoot- 
ing, is no guarantee that programs 
using such models will be at all 
intelligent. 

In other words, if the information 
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ARTIFICIAL INTELLIGENCE 
(continued from page 133) 


just sits there statically, it does not 
contribute the kind of knowledge 
we are interested in, no matter how 
well the world model may have been 
designed. Everything depends on 
the techniques used for making use 
of that information. The more ac- 
tively a program can be designed so 
as to be continually accessing the 
knowledge incorporated in a hierar- 
chical model of a problem space, 
the more intelligence will have been 
gained. 

In rule-based systems, the infer- 
ence engine is a general program 
that accesses knowledge in the form 
of rules and keeps things moving so 
that the knowledge captured in 
rules gets used and applied. But so 
far, there have not been any general- 
purpose “inference engines’ built 
for accessing knowledge in the form 
of objects. As things now stand, we 
are just beginning to get the idea of 
how to use these structures in a 
very ad hoc way. It is worthwhile, 
though, to speculate a little bit on 
what generic routines might be im- 
portant for AI programs using ob- 
jects to create deep models of do- 
mains. 

Certainly some unusual, yet ge- 
neric, search routines specific to 
object-oriented systems are a neces- 
sity. One such basic routine would 
be a method that built its own list 
of all the instances of a given class 
for the purpose of search, then 
made its own ordering of the names 
of these objects, and then searched 
them for specific information by look- 
ing up the values of various slots or 
instance variables. Far more intri- 
cate and flexible search routines are 
possible, too, such as those that can 
do a more general type of informa- 
tion gathering so as to provide a 
temporary seach space of only the 
relevant data needed for a given situ- 
ation. This idea of programs that 
can build temporary search spaces 
dynamically for use in solving prob- 
lems efficiently is one that has a 
broad applicability to several differ- 
ent types of AI application. 

An interesting use of class hierar- 
chies in AI has been the partitioning 
of rule-based knowledge into sets of 
rules that are organized according 
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to a network of situations in a prob- 
lem space. Here only the tip of the 
iceberg has been touched so far. 
There is room for a wide range of 
approaches to providing flexible prob- 
lem solving methods based on so- 
phisticated routines for selecting 
rulesets to apply by rapid _ initial 
searches up and down a hierarchy 
rather than just by executing simple 
test and branch procedures. 

For example, let's say that the ap- 
plication is one of actually building 
a design for something. Here, one of 
the important services that com- 
puter technology can provide is in 
helping human designers make sure 
they have not overlooked anything 
important. The problem is that what 
is important in a given design can 
differ enormously from case to case, 
depending on the details and re- 
quirements of a given design. In 
such a case it would be useful to 
have various sets of constraint rules 
that could be selected and applied 
in a selective way rather than by a 
rigid procedure. 

One of the key types of know-how 
that human designers learn by expe- 
rience is how much detail is rele- 
vant for evaluating a given aspect of 
a design. This is important for avoid- 
ing entirely inappropriate analyses 
and conclusions. So, for example, in 
some designs, there is enough stan- 
dardization in the parts being used 
that an iteration through each part 
in turn would be absurd. All that is 
needed is inspection of a few typical 
elements to reach an important gen- 
eral conclusion. This is the kind of 
realization that a human designer 
reaches by common sense but 
which can be automated. In this 
case, a general routine could be 
used that sifted quickly through all 
the instances of each type of design 
element used in a proposed design 
and decided which _ categories 
would need a detailed, iterative treat- 
ment and which could be evaluated 
by inspecting typical elements. 

The general point that object-ori- 
ented systems can be effective for AI 
applications only to the degree that 
an active access is provided to the 
information represented as objects 
has some interesting consequences. 
For one thing, it means that an ade- 
quate object-oriented programming 
environment must provide at least 


some minimum features to make 
this possible. 

First on the list is the ability to 
keep track of all the objects cur- 
rently in the system, which includes 
both classes and instances, accord- 
ing to their place in the hierarchy. 
That’s more powerful than it 
sounds; part of what we consider 
simple common sense, which all nor- 
mally functioning humans have, is a 
sense of the place of things in an 
implicit logical or conceptual hierar- 
chy. It’s also what conventional pro- 
grams don't have. 

For example, we take it for 
granted that bicycles and cars are a 
means of transportation and hence 
are in the category of equipment or 
artifacts and that, therefore, certain 
kinds of behavior with them are ap- 
propriate. The boundaries of this 
are subject to challenge, of course, 
but we take it for granted that it is 
not appropriate to use a piano for 
firewood or to risk our lives to 
rescue a bookend from a burning 
house. We know that liquids cannot 
be safely wrapped in newspaper and 
millions of other bits of general, prac- 
tical knowledge that seem to be 
stored as a general understanding 
of types of things and their roles 
and characteristics. 

The logical way to represent this 
common sense knowledge of how 
to get around in the practical world 
is as some kind of conceptual hierar- 
chy. That way, the mere fact that a 
given object is an instance or 
member of a class will activate cer- 
tain knowledge about how to deal 
with objects of that type. 

The two main ways this is 
currrently done in AI are by use of 
rule-based programming and proce- 
dural attachments or active values. 
In many of the larger professional 
Al programming systems, it is possi- 
ble to store rules about classes of 
things that are invoked for certain 
types of objects. The problem, 
though, is to provide a means of 
determining when it is appropriate 
for such knowledge to be invoked. | 
Active values or procedural attach- 
ments act like “demons” that are 
waiting for certain events in order 
to be invoked. So various operations 
can be waiting in the wings, as it 
were, for certain values to be 
changed or accessed. 
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ARTIFICIAL INTELLIGENCE 
(continued from page 134) 


So, for example, if we attempt to 
change the physical state of an arti- 
fact, such as by burning a piano, 
before that operation can be permit- 
ted, certain procedures can be auto- 
matically invoked that apply knowl- 
edge about appropriate behavior for 
that class of things. A demon for 
wooden objects might state that 
things in the category of useful fur- 
niture have a greater value than sat- 
isfying temporary needs for warmth 
by destroying them. 

When representing knowledge to 
be used to solve certain problems, 
you are constantly faced with deci- 
sions about how implicit or explicit 
to make the knowledge. In conven- 
tional programming the knowledge 
that is incorporated in a program is 
nearly always completely implicit. 
That is, it does not really exist as 
knowledge in the program other 
than as knowledge used by the pro- 
grammer to design its functioning. 

In AI paradigms such as rule- 
based programming, the attempt is 
made to make knowledge explicit as 





general rules so that this knowledge 
can be applied to new situations not 
entirely foreseen by the developer. 
The ability to handle novel situations 
is still limited, however. So far, the 
main advantage gained by making 
knowledge explicit is that greater 
generality and flexibility can be given 
to applications. Rather than having 
the knowledge “hard-wired” into a 
conventional program that is not ca- 
pable of comparing different pieces 
of knowledge to reach its own con- 
clusions, it is useful to provide a 
way of modeling the general process 
by which practical results are ob- 
tained. The alternative is just using 
the results in a purely ad hoc way. 
Obviously, it is never possible to 
make everything the result of a proc- 
ess of explicit reasoning. Even 
humans could not function that 
way. Nothing would ever get done 
in real time. We would all end up 
like parodies of Hamlet, forever ana- 
lyzing the pros and cons of every 
aspect of even the most trivial ac- 
tions. One of the rules of thumb for 
practical activity, whether by human 
or machine, is that certain things 
must be taken for granted as im- 
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plicit and used for a limited number 
of events of explicit analysis or rea- 
soning. 

From this point of view, we can 
see one of the main distinguishing 
features of human as opposed to 
machine analysis. At any given time, 
we can decide to change something 
from the status of implict to explicit 
if we need to for any reason. It’s an 
important part of living to sense 
when it is necessary to question 
things normally taken for granted. 
So far, with AI systems, the decision 
about what knowledge will be im- 
plicit and what explicit is decided 
by the programmer and cannot be 
changed except by rewriting the pro- 
gram. In a future column I will de- 
scribe a program I have been design- 
ing that actually decides to some 
degree. 

So, as things now stand, the main 
trade-off, as always, is flexibility vs. 
efficiency. The question is how 
much knowledge can be made ex- 
plicit without losing adequate per- 
formance. This is always problem 
specific. For some problems, a week 
of processing time would be accept- 
able if the result obtained were accu- 
rate and reliable enough. For others, 
even ten seconds might seem an 
eternity. Making the proper choice 
between what to make explicit and 
implicit in an AI program is often 
something that can only be done by 
developers with a great deal of expe- 
rience in the field. Even here, often 
decisions made early on turn out to 
be proven wrong later in the game. 

The advantage of modular para- 
digms such as rule-based and object- 
oriented systems, though, is that 
changes can usually made by local 
modifications that do not alter the 
functioning of the program as a 
whole. Often knowledge can be 
made explicit by adding and sub- 
tracting various rules and/or func- 
tioning classes that do not require 
that the application be substantially 
rewritten. And that sort of functional 
partitioning is essential to any large- 
scale programming project and es- 
pecially to work in artificial intelli- 
gence. 
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type unevenly, the average typing 
speed was often much less than ten 
characters per second. 

In spite of their slowness the tele- 
type machines were the most practi- 
cal terminals for multiuser systems 
(then called time sharing systems) 
and for small computers. The elec- 
tronic terminals using a CRT were 
at that time dumb terminals and 
very expensive. Furthermore, if hard 
copy was desired it was necessary 
to buy a printer which would cost 
almost as much as a full teletype 
terminal. The widespread use of tele- 
type machines as terminals left its 
mark on computer standards in 
many ways besides the TTY abbre- 
viation. The most important is prob- 
ably the ASCII code. This was devel- 
oped for the teletype machines and 
then adopted by computers when 
the teletype machines were adopted 
as terminals. 

Many computerists are puzzled 
by the fact that all of the control 
codes except DEL are at the begin- 
ning of the codes while DEL is at 
the very end. The old name for DEL, 


RUBOUT, gives a clue to this mys- 
tery. Because it was very difficult to 
type at anywhere near the maxi- 
mum of ten characters per second 
on the teletype machines most tele- 
types were equipped with a paper 
tape punch and reader. The mes- 
sage was punched into paper tape 
off line and then transmitted at the 
maximum rate by the tape reader 
on line to save expensive on line 
time. But suppose you made a mis- 
take and hit the wrong key near the 
end of punching a long tape. Once 
a key was struck there was no way 
to unpunch the holes in the tape 
and it would be very frustrating to 
have to do the whole tape over 
again. Instead the tape was manu- 
ally backed up to the error and the 
error overpunched' with the 
RUBOUT code which punched all 
the hole positions. The receiving tele- 
type was set to ignore RUBOUT 
codes so that the errors simply 
didn't print. 

The paper tape units came in at 
least two version, the 7-bit and the 
8-bit types. The 7-bit type was 
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common for most communications 
uses but for computers and for com- 
munication channels with a parity 
bit the 8-bit units were used. With 
computers paper tapes were used 
for off line storage and for distribut- 
ing software. For computer use at 
the computer high speed paper tape 
punches and readers were devel- 
oped and became so common. that 
CP/M had input/output channels re- 
served for them. 

Many of the earlier and less ex- 
pensive teletype machines were 
upper case only and this is one of 
the reasons that BASIC as developed 
at Dartmouth College would work 
with all upper case. Apparently the 
Bell Labs could afford the more ex- 
pensive teletypes with the full char- 
acter set and both C and Unix are 
case sensitive although Unix has a 
provision for translating upper case 
to lower case for upper case only 
terminals and both tend to use 
mostly lower case. Some teletypes 
could transmit either case although 
they printed upper case only, trans- 
lating lower case to upper case 
when receiving. 

Note that all of the older text edi- 
tors such as ed on the Unix system 
are line editors and that only the 
newer editors such as vi are full 
screen editors. That is because with 
the teletypes as terminals there was 
no screen. 

This is not the first case where 
decisions made in the past for valid 
reasons persist in standards long 
after the reasons for making those 
decisions no longer apply. After all 
the gauge of modern railroads was 
set by decree of an ancient Roman 
emporor and the layout of the stan- 
dard typewriter keyboard was made 
to discourage fast typing and thus 
avoid key pileups. After a standard 
has been in use for a while there are 
many things around embodying that 
standard that would be obsolete if 
the standard were changed so old 
standards linger on long after they 
are obsolete. 

Incidentally the slow teletype ma- 
chines hooked to a _ timesharing 
system seemed like a big advance to 
programmers who previously had to 
punch their programs on a card 
punch and submit them for batch 
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it ’...the perfect programming utility. It does its job 
and saves the user time.’ And at $79.99, you will save 
more than time. Call SoftScience toll free at 1-800-453-5000. 





SoftScience Corporation, P.O. Box 42905, Tucson, Arizona 85733-2905. 


Trademark owners: IBM C and IBM BASIC are trademarks of International Business Machines Corp.; dBASE is a product of Ashton-Tate Corp.; Quick BASIC is a tradename of Microsoft Inc.; Turbo BASIC, Turbo Pascal, Turbo C are tradenames of Borland International Corp. 
© 1986, 1987 SoftScience Corporation. 


A Different BASIC Might 
Make All the Difference 


We’ll skip the four-color gatefold. And the extravagant claims. 
Because if you’re serious about programming, you just want the straight facts: 


True Microsoft Borland 
BASIC Quick Basic Turbo Basic 
2.01 3.0 2.0 
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ARRAY HANDLING 
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STRING/FILE HANDLING 
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[Maximum Record’Sie——=S~wCiaB KCK 
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PRODUCTIVITY ENHANCERS 
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jeunes Veagie 9 oe Lee et ties of 
Portability to: Macintosh, Translation No other 
Amiga, Atari required machines 


\. Three very ates very powerful programming packages. All 
with fancy editors and fast compilers. Two of them are the same in 
other respects. And one of them, True BASIC, is quite a bit 
ifferent. With syntax and features that will make you more productive. 





That’s why reviewers for magazines like BYTE, PC Tech Journal and 
Computerworld keep giving True BASIC their top 
marks. And why OEMs pick True BASIC after 
they’ve evaluated all the others. See why True 
BASIC can make the difference for you. 
Call 1-800-TRBASIC today. 


True BASIC, Quick Basic and Turbo Basic are trademarks of True BASIC, Inc, Microsoft 3 9 SOUTH MAIN STREET 


and Borland, respectively. Macintosh, Amiga and Atari are trademarks of Apple Computer, AN 
Inc., Commodore-Amiga, Inc. and Atari Corporation. Copyright 1987 True BASIC. Hi OVER, N.H. 03755 
Specifications are accurate as of August 1987. (603) 643-3882 
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processing every time they wanted 
to try something. Then they would 
wait hours or even days for the re- 
sults which might be only a cryptic 
error message. Think how that 
would affect your debugging proce- 
dures. 

David S. Tilton 

27 Pennacook St. 

Manchester, NH 03104 


Interrupts 

Dear DDJ, 

Thomas Zimniewicz wonders (in his 
article “An Extended IBM PC COM 
Port Driver,” June 1987) why the IBM 
PC serial ports use a UART bit to 
enable the interrupt-driver line. 
They do this so the interrupt can be 
turned off. Normal computers (Z- 
80s, etc.) often have such lines 
driven low by open-collector drivers 
when signaling an interrupt, so that 
more than one device can use the 
physical hardware interrupt wire 
(the software, in such a case, would 
be obliged to poll each possible 
device). Such interrupt lines are 
“pulled-up” somewhere in_ the 
system with a single resistor, so even 
if nobody is driving the interrupt 
wire, the CPU won't see erroneous 
interrupts. 

The IBM/Intel hardware, on the 
other hand, drives the interrupt line 
high when an interrupt occurs, and 
the hardware has no inherent mecha- 
nism for sharing an interrupt line. 
The serial cards ameliorate this to 
some extent by providing a disabling/ 
enabling mechanism attached to a 
spare bit on the UART; thus, by se- 
lectively turning off one guy’s inter- 
rupt and turning on another, more 
than one card can use the same 
interrupt wire; but not really at the 
same time. The serial cards usually 
also include a DIP switch enable/ 
disable, which is basically in series 
with the electrical mechanism. 

Here are some of the nice things 
that can happen if you forget about 


the interrupt enable bit. 


Two or more serial cards—or 
other cards?—could have their inter- 


_ rupts enabled simultaneously on the 


interrupt line. This is an electrical 
short; there probably won't be any 
smoke or anything, but the inter- 
rupts definitely won't work the way 
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The Software Family 


649 Mission Street 
San Francisco, CA 94105 


(1)800-443-7176 
In California or outside U.S. 


(415)583-4166 


Trust TSF to provide the best 


value and 


service! 


* Technical advice and support by programmers * 


* Honest and equitable business practices * 


* Prompt, flexible service to meet your needs * 


Turbo Pascal 


‘el eaiealiaeeaiinaial ead 











We will be shipping 
Turbo Pascal version 4 
products as they be- 
come available. Specify 
your version preference 
when ordering. 


Turbo Pascal (list $99)...$59 


Turbo Toolboxes from Borland 
can save you save hours of 
coding. Specify Database, 
Editor, Graphix or Gameworks. 


Toolbox (list $76) ............. $49 


Copyright 1987 TSF 
All Rights Reserved 
Prices good until 12/31/87 


Want to stay with Turbo 
Pascal version 3? TSF 
stocks a complete line 
of add-on products that 


let you get v4 


Capabilities using the 
Borland’s v3 compiler. 
Call for information con- 
cerning products for v4. 


Thirty day money 
back guarantee on 
all Borland products. 


Debugger 


TDebug+ v2 from Turbo*Power 
speeds debugging by letting 
you peek into memory while 
your program runs. A simple 
menu interface lets you control 
execution flow, examine/change 
variables by name, and view the 
source code corresponding to 
the currently executing instruc- 
tion. New features include condi- 
tional breakpoints that stop ex- 
ecution based on a_ variable 
value or memory address range 
and watch windows that display 
the contents of critical variables. 
Includes all source code. Thirty 
day money back guarantee. 


TDebug v2 (list $66)....... $48 





Basic 


Turbo Pascal 
Publishing 


Other Pascal 
Products 


Turbo Optimizer ($75) $59 
Optimizer w/src (¢+25) $99 
TMark ($86)................000 $69 
Mach2 ($69).................. $55 
TurboWindow/P (§99)...$79 


Turbo C 





Turbo C (list $99).......008 $59 


Data Entry Windows 


Vitamin C- from Creative 
Programming provides a com- 
plete set of C functions for win- 
dow management, screen dis- 
play, data entry and editing. 
Vitamin C can be used by itself 
or with VC Screen’ which 
automatically generates C code 
from screens that you "paint" in 
full screen mode. All source in- 
cluded for Vitamin C. Thirty day 
money back guarantee. 


Vitamin C ($256)....... $159 
VC Screen ($99) ............ $79 


Turbo C Functions 


Turbo C Tools from Blaise Com- 
puting provides a complete set 
of C functions to help you write 
terminate and = stay resident 
(TSR) programs, display text in 
overlapping windows, and write 
MSDOS critical error handlers 
(so your users never see "Abort, 
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Retry or Ignore" again). Also in- 
cludes support for interrupt ser- 
vice routines (ISR), fast video dis- 
play and directory management. 
Includes all source code. Thirty 
day money back guarantee. 


Turbo C Tools ($429).. $99 


Other C Products 


Blackstar C Functions 

(list $429) .csiiscSu ne $99 
PC Lint -6199)..5.. $103 
Periscope Il ($4475)... $139 
TurboWindow/C ($99) ..$79 


Other Products 


Turbo Basic ($99).......... $59 
Quick Basic ($99).......... $65 
Quick C ($99) oe. $68 


Call or write for 
our free 20 
page newsletter 
and catalog. 


We accept checks, Visa, 
MasterCard, American 
Express and COD. We 
charge your card only 
when we ship and do 
not add a_= surcharge. 


We provide free UPS 
delivery on software or- 


ders over $100 ($3 
delivery charge on or- 
ders under $100). UPS 
and Federal Express air 
service available. Our 
COD fee is $2. We 
carry a large inventory 
and ship promptly, so 
you usually receive your 
shipment within 3 to 6 
working days of placing 
your order. 
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you expected. You could set-up the 
interrupt controller properly, but 
leave the interrupt disabled. Accord- 
ing to my Technical Reference, this 
leaves the interrupt line floating, i.e., 
your interrupts will become phase- 
of-moon dependent. 

Perhaps with PS-17 or whoever, 
IBM will come up with sophisti- 
cated hardware comparable to the 
average microwave oven controller 
of today. We can but hope. 

J.G. Owen 

35 Admiral St. 

Port Jefferson Station, NY 11776 








Bandwidth Bottleneck 
Dear DDJ, 
I have noted the thoughts on 
memory and bandwidth in recent 
issues of DDJ; they're forward-look- 
ing and pertinent to an issue which 
is of increasing concern to program- 
mers and hardware designers alike. 
In particular, the editorial in the 
March issue got me thinking with 
the reference to commuting. How 
many times have I myself sat in my 
car, creeping along, wishing for 
“more bandwidth?” Then, as_ the 
highway crews build in more band- 
width, more cars come out of the 
woodwork to clog it all up again. 
The central question becomes not 
how, but why. Why should massive 
amounts of data be thrown from 
storage to processor, often in order 








to locate or operate on a minuscule 
fraction thereof, and then thrown 
back again, or even dumped? As 
long as processing power is located 
over here and data over there, data 
volume will always grow to over- 
whelm the physical channel, similar 
to budgets and pocketbooks. 

Two approaches to this problem 
seem to point in fruitful directions: 
more efficient data transfer and elimi- 
nating data transfer entirely. The 
latter is not necessarily the logical 
extension of the first. 

Using current technology and its 
extrapolations, it seems possible to 
explore more advanced methods of 
storing and indexing data so that 
the patterns inherent in the data are 
more ‘visible’ to the data user. If 
the system wishes to use data for 
inferences or ‘inference-primitives,”’ 
rather than as fragments which 
must be assembled into inferences 
each time or when data will be trans- 
ferred, distill it first. The extra proc- 
essing time up front would greatly 
reduce operations time later. 

Eliminating data transfer, however, 
would require a more fundamental 
change in the way data and proces- 
sor work together. Perhaps we are 
seeing the beginnings of this quan- 
tum leap in the advancing neural- 
network research. Why must Mo- | 
hammed go to the mountain? Make | 
Mohammed be the mountain! Data 


PERISCO = 


assKeeps you going full steam 
ahead when other debuggers 
let you down. With four 
models to pick from, you'll 
find a Periscope that has just 
the power you need. 


. .. Start with the model that fits your current needs. If 
you need more horsepower, upgrade for the difference in price plus $10! 
And don't worry about having a lot more to learn . .. Even when you 
move to the most powerful model, Periscope III, an extra dozen com- 


mands are all that’s involved. 


Periscope’s software is solid, comprehensive, and flexible. It 
helps you debug just about any kind of program you can write . . . 
thoroughly and efficiently. Periscope’s hardware adds the power to solve 


the really tough debugging problems. 


Periscope requires an IBM PC, XT, AT, or close compatible 
(Periscope III requires hardware as well as software compatibility); DOS 
2.0 or later; 64K available memory; one disk drive; an 80-column 
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Top-of-the-line Periscope 
lil with real-time, hardware 
breakpoint board. 
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essentially becomes the processor 
and the problems associated with 
transfer to and from processing cen- 
ters disappears. Analog computers 
operate in this fashion; the construc- 
tion of the computer is really data 
to be operated on. The computation 
is essentially instantaneous without 
the need to read or otherwise 
handle data as a separate entity. 

I suppose that the issue revolves 
around the old ‘‘chicken-and-the- 
egg” dilemma. If we can eliminate 
the need to handle all of the data, 
perhaps we would know the answer 
before asking the question, or the 
solutions might fail to be general 
enough to be truly useful. Additional 
research on what data really is will 
help us find our way. 

Thanks for placing such an impor- 
tant issue before the informed and 
active computing public of DDJ read- 
ers. I'm sure that there will be much 
informed comment and discussion. 

H. Ward Silver 

RBR Engineering 

P.O. Box 1608 

Vashon, WA 98070 


DDJ 





POWER 


Periscope I includes a half-length board with 


56K of write-protected RAM; break-out switch; 
software and manual for $345. 


Periscope II includes break-out switch; software 
and manual for $175. 
Periscope II-X includes software and manual 
(no hardware) for $145. 

Periscope III includes a full-length board with 64K of 
write-protected RAM, hardware breakpoints and real-time trace buffer; 
break-out switch; software and manual. Periscope III for machines run- 
ning up to 8 MHz is $995; for machines running up to 10 MHz, $1095. 


Call Toll-Free for free information or to order your 


Periscope today! 


The 


Company, Inc. 


MAJOR CREDIT CARDS ACCEPTED. 


PERISCOPE 


800-722-7006 


14 BONNIE LANE 
ATLANTA, GA 30328 
404/256-3860 
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C-Worthy Interface Library helps you smoothly pull together all aspects of an excellent Human Interface. 


C Programmers: Wrap an Exciting, 
Bullet-Proof Interface Around 
Your Code Quickly. 


Introducing... 
C-Worthy® Interface Library 


The only human interface package 
you need. That’s what our customers 
are telling us. One early adopter, 
Novell, Inc. uses it exclusively in the 
development of their NetWare® 
Utilities, which reach over 500,000 
users. You see, C-Worthy Interface 
Library is the only library available to 
handle every aspect of your program’s 
human interface, all in one package. 
Now your programs will have a 
consistent look and feel. You no longer 
have to integrate pieces of libraries 
from different manufacturers. 

As important as you know users are, 
you often don’t have the time to heavily 
invest in writing routine code. And 
that’s OK, because with over 400 tight, 
ready-to-use functions, C-Worthy 
Interface Library takes care of the 
tedium and lets you spend your time 
doing what you enjoy. Concentrate on 
the heart of your application — features 
that make it unique, special. Let 
C-Worthy Interface Library do your: 

e Menus 

e Error Handling 

e DOS Interface 

e Context Sensitive Help 
e Screens, Windows 

e Forms, Data Input (ptiona) 


You control color, size, border, 
location, etc. And if there’s anything 
you want to change, you can. Source is 
available to provide you with the 
flexibility you need. And you can 
distribute your applications freely, with 
no royalties. 


C-Worthy Interface Library requires hard disk media with 256K 
RAM. MSDOS 2.0 + and IBM PC, or compatible, TI Professional, 
NEC APC IIL, or VICTOR 9000. C-Worthy is a registered 
trademark of Custom Design Systems, Inc. 


Tech Specs 
® Compilers: Microsoft 3.0+, Quick, Turbo, 
Lattice. All models. 


we 350+ functions written in C, 75+ in 
Assembler. 


= Menus: Fully support pop-up, Lotus style, 
MS Windows style (pull-down), pull-up. 


m Errors: DOS, program, and user. 


zw DOS Interface: 62 functions. File handling, 
dir. and drive management, date & time 
conversion, wildcards, more. 


® Help: System and context sensitive. 

mw Screens: Screen display, color palettes, save, 
restore, scroll, more. 

® Windows: Exploding, tiled, pop-up, 
overlapping. Direct video access and virtual. 
Up to 50 active at any time. 


w Keyboard Handling: Regular, function, 
interrupt, background procedures. 


yw Editing: String and word wrap text. 


w> Form Interface Library: 118 functions. 
Over 15 field types, and user definable field 
types. 3 levels of data validation: type, 
multiple field ranges, optional validation 
procedures. Hide, lock, or secure a field. 
Optimal field movement. 


w> Foreign Languages: All text messages in 
separate files for easy translation. 


mz Compatible with MS Windows. 
mw OS/2 special overlay when released. 


w= Machines: Autodetect for MDA, CGA, 
EGA, VGA, TI, AT&T, Victor. 


w No royalties. 


“I heartily recommend this package.” 
— David A. Schmitt, president, Lattice, Inc. 
Over 400 developers in 16 countries already use it. 


Thorough Documentation 


Indexed alphabetically and by category, 
the 700+ page Reference Guide includes 
for each function: an example, description, 
calling conventions, return values, and 
related functions. The 250 page User’s 
Guide gets you going with its tutorial 
and “Getting Started” sections. 
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“C-Worthy is a comprehensive C library whose 
time has come. I heartily recommend it as your 
next purchase." —Computer Language, 8/87 
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C-Worthy Interface Library: 


COifeCE GH on eet ee cee $ 195 
Form Interface Library add-on..... $ 100 
Object with Forms ............... $ 295 


Object with Forms & Library Source. . .$ 495 


Please specify compiler and version when ordering. 





To Order Call 


(800) 821- 2492 
in MA (617) 337-6963 


S € 

Systems 
541-D Main Street, Suite 410 
South Weymouth, MA 02190 
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OF INTEREST 





Sigma Designs has announced Sig- 
maVGA, a high-resolution graphics 
board. As its name implies, Sig- 
maVGA offers compatibility with 
IBM’s new Video Graphics Array 
(VGA) standard. It also offers com- 
patibility with the IBM monochrome 
display mode and CGA, EGA, and 
the Hercules’ graphics adapter 
modes, and it supports single-scan 
and multisync monitors as well as 
the IBM PS/2 analog color and mono- 
chrome monitors. SigmaVGA has 
256K of on-board memory and per- 
mits up to 256 colors to be selected 
from a palette of 262,144 colors. 

According to Sigma Designs, Sig- 
maVGA supports all the new VGA 
BIOS mode and function calls, in- 
cluding 320 X 200 in 256 colors or 64 
gray scales; 640 X 480 in 16 colors or 
gray scales; 720 x 400 in 16 colors or 
gray scales; and simultaneous dis- 
play of two out of a possible eight 
character sets stored in memory. It 
can also save and restore video 
states for use in multitasking appli- 
cations and offers 132-column sup- 
port with all digital monitors. 

The SigmaVGA graphics board re- 
tails for $499 and comes bundled 
with Show Partner, Version 3.0, from 
Brightbill-Roberts & Co. of Syracuse, 
New York. Show Partner is an appli- 
cation designed to capture screens 
from any source, then present them 
using a variety of special effects and 
animation techniques, including 
color, motion, and sound. Reader 
Service No. 16. 

Sigma Designs Inc. 
46501 Landing Pkwy. 
Fremont, CA 94538 
(415) 770-0100 
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Video Seven has announced a 
single-chip EGA that is completely 
hardware compatible with EGA, CGA, 
MDA, and HGC (Hercules graphics 
board) display modes. The chip is 
contained in a 160-pin package and 
features a complete implementation 
of the EGA hardware as well as a 
fully functional 6845 CRT controller. 
Advanced features include enhanced 
automatic switch support, dot clock 
speeds of up to 34 MHz, double- 
scan capability, and built-in support 
logic. The board is manufactured for 
Video Seven by LSI Logic. 

The price has not yet been deter- 
mined. Reader Service No. 17. 
Video-Seven Inc. 

46335 Landing Pkwy. 
Fremont, CA 94538 
(415) 656-7800 


Graphics Software Systems has re- 
leased the OS/2 Graphics Develop- 
ment Toolkit for the advance release 
of OS/2. The OS/2 GDT includes 
device drivers for VGA, EGA, and 
CGA graphics adapters; the Micro- 
soft Mouse; the IBM Proprinter, 
Graphics Printer, and Color Graph- 
ics Printer; the Quietwriter III; and 
plotters from IBM and HP. Addi- 
tional drivers now under develop- 
ment include IBM/PS/2 Mouse, the 
HP LaserJet+, and laser and dot- 
matrix printers from Epson and 
other vendors. 

The OS/2 GDT advance release in- 
cludes language binding to support 
Microsoft C and Macro Assembler. 
The final version of OS/2 GDT will 
support OS/2 implementations of C, 
BASIC, FORTRAN, Pascal, and Macro 
Assembler from IBM and other third- 
party vendors. 

The list price is $995, with dis- 
counts available to registered 
owners of the GSS Graphics Develop- 
ment Toolkit for DOS. A final version 
of the OS/2 GDT will be available 
from GSS when the final version of 
OS/2 is available from Microsoft and 
IBM. Reader Service No. 18. 
Graphics Software Systems Inc. 
9590 S.W. Gemini Dr. 

Beaverton, OR 97005 
(503) 641-2200 


Atron has announced Windows 


Probe, a set of debugging tools for 
developers using the Microsoft Win- 
dows operating environment. The 
tools permit trapping programs that 
are not yet in memory but reside on 
disk. With many programs operating 
simultaneously, program bugs have 
a far greater chance of corrupting 
other programs as well as them- 
selves. Windows Probe tracks the 
program in real time and adjusts 
symbolic and source-level debugging 
information accordingly. 

Atron’s AT PROBE contains 1 mega- 
byte of hidden and write-protected 
memory that stores the Windows 
Probe debugger software and the 
symbolic and source-level debugging 
information without taking memory 
space in the lower 1 megabyte of 
system memory. AT PROBE'’s real- 
time trace feature lets programmers 
see how the program operated in 
real time. 

Windows Probe is compatible 
with the C compiler that is part of 
the Windows development system. 
Programmers can _ display and 
change local and complex data vari- 
ables as well as do source-level de- 
bugging. 

Windows Probe costs $495. Reader 
Service No. 19. 

Atron 

20665 Fourth St. 
Saratoga, CA 95070 
(408) 741-5900 


Foresight Resources Corp. has re- 
cently released a version of its drafix 
1 computer-aided design and draft- 
ing program for the Atari ST. Drafix 
1/Atari ST is the first professional- 
quality CAD program available for 
the Atari 520ST and 1040ST comput- 
ers. The program is menu-driven 
with available commands displayed. 
It includes object drawing and edit- 
ing, snap grid and object snap draw- 
ing aids, multiple fonts, crosshatch- 
ing, an automatic dimensioning 
system, and symbol library manage- 
ment. 

Drafix 1/Atari ST sells for $195. 
Reader Service No. 20. 
Foresight Resources Corp. 
932 Massachusetts 
Lawrence, KS 66044 
(913) 841-1121 


Dr. Dobb’s Journal, November 1987 


LGLZ-GELZS EMO} “UO}LUI|D LGL2-GELZS PMO} “UOJUL|D 
LS1¢ XO@ ‘Od | LSL¢ XO€ “Od 


YINWVUDNOUd IVWNOISS3IIONd JH! UO 


SJOO], FIEMIJOS 


jo jeumo| s,qqoq 3g 


YINWVAYONOUd IVNOISSIIOUNd FHI YO 


soa ayeaos 


JASSSYGGV Ag Aivd 38 THM 3DVLSOd JASSSYGOGV A Civd 38 THM ADVLSOd 








VYMOI ‘NO.LNINO ‘Z12# LINHSd SSV19 LSHls VMOI ‘NOLNITO ‘Z12# LINYSd SSVT9 LSul4 


TIWW Alda SSANISNG IVAW Alda SSANISNG 


AHL NI AHL NI 
QSTIVW al GFIVW al 
AYVSSADAN | AYVSSA94AN 
ADVLSOd ON . ) AIDVLSOd ON 






SALVLS G3.LINN 


SALVLS GSALINN 












CiSiOns 








De 





Smart Buying 





Start with DDJ 


Use this card for FREE, FAST information about the 
products and services listed in this issue. Simply circle the 
appropriate numbers below. 


Name 

Title 

Conary... CP 
Address 

City/State/Zip 


26 51 76/101 126 151 176|201 226 251 276/301 326 351 376 
27 52 77)|102 127 152 177/202 227 252 277|302 327 352 377 
28 53 78|103 128 153 178/203 228 253 278|303 328 353 378 
29 54 79|104 129 154 179/204 229 254 279/304 329 354 379 
80|105 130 155 180/205 230 255 280/305 330 355 380 

31 56 81/106 131 156 181/206 231 256 281/306 331 356 381 

32 57 82/107 132 157 182|207 232 257 282|307 332 357 382 

33 58 83/108 133 158 183/208 233 258 283/308 333 358 383 

34 59 84/109 134 159 184/209 234 259 284/309 334 359 384 
10 35 60 85/110 135 160 185/210 235 260 285/310 335 360 385 
11 36 61 86/111 136 161 186/211 236 261 286/311 336 361 386 
12 37 62 87/112 137 162 187|212 237 262 287/312 337 362 387 
13 38 63 88)113 138 163 188/213 238 263 288/313 338 363 388 
14 39 64 89/114 139 164 189/214 239 264 289/314 339 364 389 
15 40 65 90/115 140 165 190/215 240 265 290/315 340 365 390 
16 41 66 91/116 141 166 191/216 241 266 291/316 341 366 391 
17 42 67 92/117 142 167 192/217 242 267 292/317 342 367 392 
18 43 68 93/118 143 168 193/218 243 268 293/318 343 368 393 
19 44 69 94/119 144 169 194/219 244 269 294/319 344 369 394 
20 45 70 95/120 145 170 195|220 245 270 295/320 345 370 395 
21 46 71 96/121 146 171 196/221 246 271 296/321 346 371 396 
22 47 72 97)|122 147 172 197|222 247 272 297 |322 347 372 397 
23 48 73 98/123 148 173 198/223 248 273 298/323 348 373 398 
24 49 74 991124 149 174 199|224 249 274 299/324 349 374 399 
25 50 75 100}125 150 175 200|225 250 275 300/325 350 375 400 
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27 §2 77/102 127 152 177|202 227 252 277/302 327 352 377 
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Start Here 


Smart buyers start with DDUs free 
information card, a shopping center filled 
with information about the products and 
services advertised in this very issue: everything from software 
and systems to peripherals and professional support services. 

And smart buyers can use this free information card to 
quickly and easily gather a comprehensive file of facts, figures 
and product specs to sort out competing claims. Using DDU's 
free information card can prevent you from making the wrong, 
costly buying decision. 

Be a smart shopper. Complete and mail this postage paid 
card today! 
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Circle the appropriate free 
a@ information numbers, 
referring to the advertiser index for 
more information. 







2 a Fill in your name and address. 


3 Mail today—postage is 

@ absolutely free. You'll receive the 
product information you need directly from 
the manufacturers, thanks to DDJ 
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OF INTEREST 
(continued from page 144) 


Raster Technologies has intro- 
duced two products in a line of 
GX4000 parallel-processing graphics 
accelerators for use with Sun Mi- 
crosystems’ workstations. Raster’s 
GX4330 and GX4340 plug directly 
into a Sun-3 or Sun-4 VME back- 
plane. They use a new parallel archi- 
tecture that Raster has developed to 
execute the proposed ANSI PHIGS 
and PHIGS+ standards at the fast- 
est possible rate. 

The systems offer a 24-bit, true- 
_ color display and the ability to 
create and edit a standards-based 
3-D display list structure. They sup- 
port Sun’s X.11/NeWS Window 
System and 200,000 to 1,000,000 trans- 
formed and drawn 32-bit floating- 
point 3-D vectors per second. The 
architecture consists of a dual- 
ported Display List Module incorpo- 
rating 1-megabit, static column RAM 
chips. 

Reader Service No. 21. 
Raster Technologies Inc. 
Two Robbins Rd. 
Westford, MA 01886 
(617) 692-7900 








MacMemory has released Turbo SE, 
a 16-MHz 68000-based accelerator 
board for the Apple Macintosh SE 
that offers a minimum speed in- 
crease of 200 percent. Users also 
have the option of moving the Macin- 
tosh SE ROMs to the Turbo SE board 
to double the speed of all ROM op- 
erations. This increase is 100 per- 
cent compatible with existing Mac 
applications. 

Turbo SE sells for $599. Reader 
Service No. 22. 
MacMemory Inc. 
2480 N. First St. 
San Jose, CA 95131 
(408) 922-0140 


AJS Publishing has released db/ 
LIB, a database library that features 
a set of 20 assembly-language proce- 
dures that give Microsoft's QuickBA- 
SIC (Version 2.0 or later) full rela- 
tional database management capa- 
bility and dBASE III standard file 
compatibility for database, index, 
and text files. 

In addition to the library files, the 
db/LIB software package contains sev- 





eral executable data management 
routines, including Browse, Copy 
Structure, and List. Features include 
the ability to search and index on 
memo fields, offer direct access to 
the keys in index files and to the 
database file header, and provide 
access to files down any subdirec- 
tory path. 

The db/LIB software internally man- 
ages its own system of record buffer- 
ing and, by writing records to 
memory buffers rather than to disk, 
makes many applications run appre- 
ciably faster. It employs dynamic 
string allocation for user variables 
returned by the library, which 
means that variables do not require 
preallocation of string space. 

Db/LIB sells for $139. Reader Serv- 
ice No. 23. 

AJS Publishing 

P.O. Box 379 

North Hollywood, CA 91603 
(818) 985-3383 


Sterling Castle Software has just 
released Version 4.0 of the BlackStar 
C Function Library. The new version 


4 Times Faster 
than MASM 5.0 


All MASM features (except 386 & CodeView support) 


Plus 


*Generates smaller code! (no inserted NOP’s) 


*Automatically handles jumps out of range 
*Handles most of MASM’s phase errors 
*Built in MAKE 

*Up to 15,000 symbols 
*Simplified segmentation 


4 3 
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OPTASM 
$195 


1622 N. Main St., Butler, PA 16001 
(412) 282-0864 (800) 833-3061 
TELEX $59215 | 
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DEBUGGING SWAT TEAM | 


Order Eco-C88 Rel. 4.0 New Modeling Compiler a 
and get C-more at no extra charge! oA si 


































Seek and Correct 


You already know that fast compilation does not mean fast program development. Backing 

up for bogus error messages and removing the bugs takes time. Eco-C88’s “Seek and Correct” 
three - way error checking finds even the most elusive bugs, clearing the path for swift program 
development. 





Double Barrel Error Checking 


Eco-C88 nails cold and tells you about the error in plain 
English. And there’s no avalanche of false error messages, either. Other 
compilers can generate up to four times the number of error messages 
actually present; they leave it up to you to guess which ones are 

real. You'll be more productive with Eco-C88 because there is no 
guess work. 


Eco-C88 provides ten levels of checking. You can 
select from almost no checking to the fussiest you've ever seen. 
Eco-C88's “picky flag” finds subtle errors that slip by 

other compilers. 





Eco-C88 also features: 


All data types, plus ANSI Enhancements 
Robust library, including many new ANSI 
functions 

CED editor with online function help, split 
windows, compile-edit-link capability 

© New, expanded manual with sample pro- 
grams for the library functions 


C-more Source Code 
Debugger 


Finally, if a really nasty bug persists, 

put C-more, our source code debug- 

ger, to work. With C-more you can 

watch your program as it executes, 
single-step it, set simple or conditional 
breakpoints, test complex expressions, 

use variables as indexes into other vari- 

ables, initialize and trace variables, examine 
CPU registers, display results with printf()- 
type options and much more. C-more can help 
you track down bugs in minutes rather than days. 


Pa 


The price for Eco-C88 is $99.95. And, fora 
limited time, we'll give you our C-more debugger 
at no extra charge. 


Ecosoft Inc. 
6413 N. College Ave. 
Indianapolis, IN 46220 


(317) 255-6476 (Tech Info) 
(800) 952-0472 (Orders) £ 
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OF INTEREST 
(continued from page 146) 


supports the EGA, allows terminate- 
and-stay-resident program develop- 
ment, and has six new serial com- 
munication functions. The TSR func- 
tion enables the development of pro- 
grams that can pop up and be util- 
ized while another program is run- 
ning. The library supports the stan- 
dard ANSI language; is compatible 
with Microsoft C, Version 3.0/4.0, and 
Lattice C, Version 3.0; and is adapt- 
able to other versions. 

The product offers more than 300 
functions, including device handlers 
for screen, graphics, keyboard, 








BASIC Prog 





Whether you're a seasoned expert or 


JUSt Starting Guy, we Can Tisty you create 


programs that run faster, work harder, 


and simply look better. We have built our 


_ reputation on customer satisfaction by 
providing expert advice and quality 


technical support. All Crescent Software _ 
products include source code, demonstra- 


tion programs, clear documentation, and 
a 30-day satisfaction guarantee.  —_© 

















‘™@ QOBase is a superb screen designer 
and full-featured relational database. 
Because we include complete BASIC. 
source code, OBase can be custc 
ized to suit your needs. Besides i 
caer Sr QBase | is 

titl 


services, 





menus, accepting data input, and 
much more. QuickPak is loaded 
examples and tutorial informati n, 





_ tricks book, plus The Assemblv Tutor 
—a complete guide to learning 
_ assembly language from a BASIC 
perspective. $69 


© By Customer Demand — QuickPak II 
More than 30 additional tools, includ- 
ing disk and printer tests to eliminate 


the need for On Error in your programs, — 


professional programming util ies. 


: _ wrap anywhere on the screen from — 
within your programs. Other routines 


arrays, creating pull-down andLotus™ ce 






printer, and mouse. It also has the 
capabilities of interrupts, string, 
menu, date, time, and system func- 
tions and uses primitive functions 
written in assembly language to im- 
prove speed and memory usage. The 
library includes complete source 
code and small-, medium-, and large- 
memory models. 

Version 4.0 costs $129. Reader Serv- 
ice No. 24. 
Sterling Castle Software 
702 Washington St., Ste. 174 
Marina del Rey, CA 90292 
(213) 306-3020 





anda multi-line text input routine that 


lets you put a note pad with full word 





_ include binary file access, more menus, 


multiple screen save and restore, con- 


inuous time display, automatic box 
drawing, and much ( 
: for u use me suick 


on routines for feed 
pie charts automaticall 
rograms. It will create < 


CRESCENT 
SOFTWARE 


_ 64 Fort Point Street, East Norwalk, CT 06855 
(203) 846-2500 


Separate versions are available for Microsoft 

- QuickBASIC and Borland Turbo Basic — please 
) when ordering. No roya vee not co y pro- 
tected, of course. We accept Visa, M/C, C. and 
Checks. Add $3 shipping and handiice. $10 eet 
_ and foreign, $25 2nd day foreign. 


CIRCLE 379 ON READER SERVICE CARD 


148 








Silicon Beach Software has intro- 
duced Super 3D for the Macintosh, 
a product that offers 3-D graphics 
modeling and animation for profes- 
sional engineering and graphics arts 
applications. It was designed to pro- 
vide artists, architects, engineers 
with dynamic simulation and mod- 
eling capabilities. 

Modeling tools allow users to 
create shaded shapes in more than 
16,000 colors, 3-D animation for dy- 
namic visualization of complex struc- 
tures, and movie-camera-like tools 
for precise visual control. The tool 
palette offers ten basic tools for cre- 
ating graphics primitives such as 
points, lines, arcs, circles, ovals, rec- 
tangles and polygons. Objects can 
revolve about any axis or they can 
be extruded, translated, scaled, 
flipped, replicated, and mirrored or 
arbitarily reshaped. 

Super 3D is priced at $295. Reader 
Service No. 25. 

Silicon Beach Software Inc. 
P.O. Box 261430 

San Diego, CA 92126 

(619) 695-6956 


NeXT and Adobe Systems Inc. 
have announced a jointly developed 
version of PostScript for workstation 
displays. The new product, Display 
PostScript, will be independent of 
windowing systems and include full 
support for outline fonts, arbitrary 
line-widths, rotation, and color. 
According to Steve Jobs, ‘Display 
Postscript allows us to achieve true 
WYSIWYG from the display to the 
printed page since the same imag- 
ing model is now used for both.” 
No price has been announced be- 
cause the product is still under de- 
velopment. Adobe has scheduled a 
demonstration of the product for 
the summer of 1988. Circle Reader 
Service No. 26. 
NeXT, Inc. 
3475 Deer Creek Road 
Palo Alto, CA 94304 
(415) 424-0200 
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Upgrade your technology 


The software technology available to 
programmers of IBMcompatible per- 
sonal computers is truly amazing. 
And newer, more powerful develop- 
ment packages appear all the time. 
But until now, finding out about these 
important products has been a diffi- 
cult and time consuming task. 


FREE Buyer’s Guide. The 
New 76 page Programmer’s 
Connection Fall 1987 Buy- 
ers Guide contains individ- 
ual descriptions of over 

500 titles of programmer's 
development software by 
over 150 manufacturers. 
Each description covers 
major product features as 
well as any software or 
hardware requirements and 
version numbers. In the box 
on the right are some ex- 
amples of the types of de- 
scriptions you'll find in our 
Buyer’s Guide. 


No Hidden Charges. The 
low discount prices in our 
Buyer's Guide are all you 
pay. We don’t charge extra 
for UPS Ground shipping, 
credit cards, COD orders, 
purchase orders, sales tax 
(except Ohio) or special 
handling (except for non- 
Canadian international 
orders). 


Guarantees. We offer FREE 
30-day no-risk return guar- 
antees and 30-day evalua- 
tion periods on most of our 
products. 

Latest Versions. The prod- 
ucts we carry are the latest 
versions and come with the 
same manufacturer's techni- 
cal support as if buying 
direct. 


The Free 
rammer 





Prog 





hours. 
































Blaise 
C TOOLS PLUS/5.0 


List $129 Ours $99 
C TOOLS PLUS/.0 is a library 
for Microsoft C that can provide 
you with a full spectrum of 
eneral-purpose utility functions. 
ncluded are functions that take 
ee of the machine fea- 
tures of IBM-compatible per- 
sonal computers and DOS and 
complement the standard com- 
piler library. Almost all functions 
are written in C using techniques 
most suitable for g C program 
design. Some of the areas covered 
are: extensive string handling; 
screen handling including suger 
for multiple monitors and the 
GA; general utility and 
keyboard functions; DOS 
memory management; windows 
that can be stacked, removed and 
accept user oe intervention 
code; and interrupt service 
routine support for truly flexible 
resident applications. C TOOLS 
PLUS/S.0 includes all source 
code, complete examples and a 
comprehensive reference 
manual. 
Supports Microsoft C 5.0 and 
Microsoft QuickC. 


ESP 


Command Plus 
List $80 Ours $69 


Command Plus is a powerful, 
bootable MS-DOS command 


Pace ae compatible with 
OMMAND.COM 





features are included that will 
help you increase your speed, 
productivity and ease of program- 
ming. These include a history 
processor that lets you recall and 
Sap reviGuely entered com- 
mands using the cursor keys. ‘The 
alias facility allows the creation of 
command macros with replace- 
able parameters. Other features 
include: repviet expressions in 
filenames; directory and argu- 
ment stacks; a command line 


Large Inventory. We have one of the 
largest inventories of programmer's 
development products in the industry. 
Most orders are shipped within 24 


Noncommissioned Staff. Our courte- 
ous salespeople are always ready to 
help you. And if you aren’t sure about 


Many new P 


your needs, our knowledgeable tech- 
nical people can give you sound, 
objective advice. 


Experience. We've specialized in de- 


velopment software for |IBMcompati- 


editor; access to environment 
variables; a MOVE command; 
and Browse, a full screen file 
viewer. Command Plus also in- 
cludes SCRIPT, a batch processor 
that uses a Pascal-like language 
that features: integer and strin 
variables; boolean, math an 
string operators; CALL, 
FOR/WHILE, GOTO 
IF/THEN/ELSE, and SWITCH 
statements; and display and file 
access routines. Enhancements 
to DIR include sort options and 
file attrib display. COPY options 
include selection by date/time 
range, and recursive sub-directory 
processing. 

_Requires 48K memory. Ver- 
sion 1.2. 





Meridian 


Software 
AdaVantage 
Compiler 2.0 


List $795 Ours $735 

The Meridian AdaVantage Com- 
iler isa fully validated implemen- 
ation of the Ada language. The 
compiler generates native 8086 
code in the Intel standard object 
format. A linker is provided to 
create stand-alone executable 
files for MS-DOS. The Meridian 
AdaVantage Compiler package 
includes the compiler, linker, 
library management tools, sup- 
port packages, runtime libraries 
and a configuration tool. In addi- 
tion to the standard Ada pack- 
ages, support packages are 
rovided to make integer, floating 
point and text I/O more con- 
venient to implement. The com- 

iler also provides a pragma 
NTERFACE used to make calls 
to subprograms written in 8086 
assembly ee uaee Meridian Cor 
Meridian Pascal. A source level 
er will be available in late 


Requires hard disk and 640K 
memory. Runtime fees apply if 
more than 99 copies are sold. 
Version 2.0. 
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ble personal computers since 1984 
and are experienced at providing a 
full range of quality products and 


Customer services. 


How to Get Your Copy. 
There are three ways for you 
to receive your FREE copy 
of the Programmer’s Con- 
nection Buyer’s Guide: 1) 
Use the reader service card 
provided by this journal; 2) 
Mail us a card or letter with 
your name and address; or 
3) Call one of our convenient 
toll free telephone numbers. 


If you haven’t yet received 
your Programmer’s Connec- 
tion Fall 1987 Buyer’s Guide, 
act now. Upgrading your 
programming technology 
could be one of the wisest 
and most profitable deci- 
sions you'll ever make. 


CALL TOLL FREE 
USAS oc. S.. 800-336-1166 
Canada: ... 800-225-1166 
Ohio & Alaska 

(Collect): . .216-494-3781 
International: 216-494-3781 
Telex: ....... 9102406879 
Easylink:....... 62806530 


Programmer's Connection 
7249 Whipple Ave. N.W. 
North Canton, OH 44720 


Please turn the page for our latest price 
list and ordering information. 


sConnection 
Fall '87Buyer's Guide. 





ai-expert systems 


ist-CLASS dy Programs in Motion 
EXSYS Development Software by EXSYS 

EXSYS Runtime System 
LEVELS dy /nformation Builders 
Logic-Line Series A// varieties by Thunderstone 


ai- lisp language 
Golden Common LISP dy Gold Hill 
Golden Common LISP Developer by Gold Hill 
O'Nial Various by MAL Systems 
Star Sapphire LISP Compiler by Sapiens 
TransLISP PLUS from Solution Systems 


ai- prolog language 
Arity Combination Package 
Expert System Development Pkg 
File Interchange Toolkit 
PROLOG Compiler & Interpreter 
Screen Design Toolkit 
SOL Development Package 
Arity PROLOG Interpreter 
Arity Standard Prolog 
LPA microPROLOG A// Varieties 
MPROLOG Language Primer LOG/CWARE 
MPROLOG P500 by LOGICWARE 
MPROLOG P550 w/Primer by LOGICWARE 
Turbo PROLOG by Borland Intl 
Turbo PROLOG Toolbox by Borland Int! 


ai- smalitalk language 


oe eee me eee eee eee ee ee eee eee ee 


EGA/VGA Color Option 
Goodies Diskette 


ee 


eee eee eee eee ee eeeeee 


ee ee eee eee eee eee 


eee eee eee eee eee eres 
eee eee ee eee eee eeeeee 


eee eee eee eee eee eee eee 
ed 
sees eee eee eee eee eee 
eee ew ew ee eee eee eee eee 


eee eree eee eee eee 
eee eee eee eee eee 


eee ee eee eee eee eee eee 
cee eee eee ee eee eee ee eee eee 


ai- texas instruments 
Arborist Decision Tree Software 


eee eee wee eee eens 


ee 


Personal Consultant Easy 
Personal Consultant Image 
Personal Consultant Online 
Personal Consultant Plus 
Personal Consultant Runtime 


eee eee eee eee eww eee 


eee ee eee wee eee eee 


ada language 


AdaVantage GSA-Validated by Meridian Software ... 
AdaVantage Utility Packages 
DOS Environment Package 

Janus/ADA C Pak by R&R Software 

Janus/ADA D Pak by R&A Software 

Janus/ADA ED Pak by R&A Software 


apl language 
APL*PLUS PC by STSC 
APL*PLUS PC Spreadsheet Mgr by STSC 
APL*PLUS PC Tools Vol 1 by S7SC 
APL*PLUS PC Tools Vol 2 by S7SC 
APL*PLUS PS/2 by STSC 
ATLAS *GRAPHICS hy STSC 
Financial/ sae Library by S7SC 


ee 


ed 


eee eee eee eee me eee eee wees 


STS 
STATGRAPHICS dy S7SC 


assembly language 


386 ASM/LINK Cross Asm by Phar Lap 
8088 Assembler w/Z-80 Translator by 2500 AD .... 
ASMLIB Function Library by BCSoft 
asmTREE 8-7ree Dev System by BCSoft 
Cross Assemblers Various by 2500 AD 

EZASM by C Source 
Microsoft Macro Assembler 
Turbo Debugger by Speedware 
Turbo Editasm by Speedware 
Visible Computer: 8088 by Software Masters 


basic language 


db/Lib for QuickBASIC by AJS Publishing 
Finally by Komputerwerk 
MACH 2 by Micro Help 
Microsoft QuickBASIC 
QBase Relational Database by Crescent 
Quick-Tools by BCSoft 
QuickPak by Crescent Software 
Scientific Subroutine Library by Peerless 
Screen Sculptor by Software Bottling 
Stay-Res by MicroHelp 
True Basic w/Run-time 


eee eee eee eee ee eee eee 


Ce 
eee eee eee eee eee eens 
eee eee eee ee eeeeese 


see ee wee eee eee wee 


eee eee eee ewe ee eee ewe eee 


eee ee eee eee eee eee sresene 


ee 


eee eee eee eee eee seers eeee 


eee eee ee ee eee eee eee eee eee ere rere 
a ey 


eee eee eee eee eee eee eee sesee 


blaise products 

ASYNCH MANAGER Specify C or Pascal 

C TOOLS PLUS/5.0 

KeyPlayer Super Batch Program 

LIGHT TOOLS for Datalight C 
0 


eee eee ee ew ewes 
see eee eee eee eee eee 


ee eee ee ee ee eee ee eee eee wees 


PASCAL TOOLS & TOOLS 2 
RUNOFF Jext Formatter 
TURBO ASYNCH PLUS 
TURBO C TOOLS 


eee eee eee eee ee eeee 
Se ee eee eee ees e eer eseee 
& 6's £6 «60 6 06's vl o's 6 6)% % 016-4 
coe eee ee eee eee eee seseesessee 


eee eee eee ee eee eee 


borland products 


EUREKA fquation Solver 
Reflex: The Analyst 


© 0 6S ws, 6 © © 6 6 6 6 6S 0-0 © 6 610 0.0 § Cis 6.6 60 0-ese8 


eee eee eee eee eee ee eens 
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Turbo Basic Compiler 
Turbo Basic Database Toolbox 
Turbo Basic Editor Toolbox 


eee eee eee eee e sre seers eese 


see eee eee ee se cece 


se eee eee eee eee eene 


Turbo Lightning and Word Wizard .............. 150 
a Sere Pee re eee eer a 100 
Turbo Lightning Word Wizard.............. ae 70 
Turbo Pascal and Tutor ............ New Version CALL CALL 
UN POROEE 65k Son's ose Ss eh New Version 100 
Turbo Pascal Tutor ............. New Version 70 
Turbo Pascal Database Toolbox ...... New Version 100 
Turbo Pascal Editor Toolbox......... New Version 100 
Turbo Pascal Gameworks Toolbox ....WVew Version 100 
Turbo Pascal Graphix Toolbox ....... New Version 100 
Turbo Pascal Numerical Methods Toolbox ....New 100 
Turbo Prolog Compiler ...................00.. 100 
RO YOM SOIR ok oi ot ew toed SS aee nes 100 
c compilers 
C86PLUS by Computer Innovations.............. 497 359 
DeSmet C w/Debugger & Large case ............ 209 184 
DeSmet C w/Debugger only ........... 0c ce eee 1569 138 
Eco-C Complete System by Ecosoft.............. 140 =119 
Instant C by Rational Systems... ........0.0005 495 369 
Instant-C/16M by Rational Systems ......... New 895 695 
Lattice C Compiler vers. 3.2 from Lattice ......... 500 265 


Mark Williams Let's C w/csd.................. 75 


54 
Microsoft C Compiler w/CodeView ... New Version 450 269 


Microsoft QuickC Compiler ............... New 99 
Optimum-C by Datalight ......... 0.0 cece eee 139 

Turbo C Compiler by Borland .................. 100 
Uniware 68000/10/20 Cross Compiler by SOS .... 995 829 
c interpreters 

C-terp by Gimpel, Specify compiler .............. 298 219 
C Trainer with Book by Catalytix................ 122 
Introducing C by Computer Innovations ........... 125 

Run/C by Age of Reason .......... cece eens 120 

Run/C Professional by Age of Reason ........... 250 145 


c utilities 


Blackstar C Library by Sterling Castle........ New 125 
C++ by Guidelines w/version 1.1 kernel .......... 195. 172 
c-tree & r-tree Combo by FairCom .............. 650 519 
c-tree /SAM File Manager ............000055 395 315 
r-tree Report Generator ............000 0000 295 239 
Csharp Realtime Toolkit by Systems Guild......... 600 489 
Curses Window Dev Pkg dy Aspen Scientific .. New 119 105 
WN SUED COND Ss oo. eo iig's eb oon Soe wees 289 249 
dBx dBASE to C Translator by Desktop Al ......... 350 299 
WER SE CIIG iso Sac core Ue Cus was bee 550 419 
Flash-up Windows by Software Bottling .......... 90 
GraphiC Color version by Sci Endeavors........... 350 274 
TATA ON OMENS 5 oho os oe dn to Fane hwo. 175 159 
HALO Graphics by Media Cybernetics ............ 300 §=205 
HALO Development Pkg for Microsoft............ 595 389 
The HAMMER by OFS Systems ................ 195 129 
PANEL Forms Management by Roundhill.......... 295 215 
PANEL/TC for Turbo C by Roundhill ............. 129 
PANEL Plus by Roundhill ... 2... ee ce eee 495 395 
PC Lint by Gimpel Software ...............006. 139 
PUDTHE BY SNTOIOS ooo eso tiene 05 oop Sees 175 159 
RTC PLUS Fortran to C by Cobalt Blue ........... 450 399 
Sapiens V8 Virtual Memory Manager ........ New 300 265 
Scientific Subroutine Library by Peerless ......... 175 = 135 
TE Text Editor source by Sub Systems ........... 95 
Vitamin C by Creative Programming ............. 225 149 
VC Screen forms Designer... ........050005- 100 
Zview by Data Mgmt Consultants ............... 245 139 
cobol language 
CODULSIN OF FIOIE o os Ss aed 6a c's ow wiete ssa 395 329 
FPLIB for Realia COBOL by BCSoft .............. 149 +129 


Micro Focus COBOL See Micro Focus Section 
Microsoft COBOL See Microsoft Section 


PEE eTOCs Sold vies obs 4 chy nbn se ts 995 895 
Realia COBOL with RealMENU ................ 1145 899 
FONE CI os sp as op Ne A 6 ave Hrd o Re 995 783 
tenn ho LUE ER OE EEE ETE 995 783 
RM/COBOL dy Ayan-McFarland ................ 950 639 
RM/COBOL 85 by Ayan-McFarland ............. 1250 895 
RM/NET+5 dy Ayan-McFarland ............ New 300 259 
POR OUONNE Ns Co ova as Rapa kaise se end) New 395 334 
SUREEMIG By WOON ©... o ing oc ed ceca toes 400 379 
screenplay for COBOL hy Flexus ................ 175 129 
css products 
Combo Package by Custom Software Systems ...... 199 175 
PC/SPELL Spelling Checker..............44. 49 
PC/TOOLS UWIX-like Utilities... 2... ee eee 49 
POSE WEIN Sioa on ohka ile wee Ses 149 
debuggers & profilers 
386 DEBUG Cross Debugger by Phar lap ......... 195 129 
Advanced Trace-86 by Morgan Computing ........ 175 «115 
Codesmith-86 by Visua/Age...............0065 145 
DSD87 by Soft Advances ...............00005- 125 
MimProbie: by Alton’ 225.0505 a0 56 0 d5 cea Ses 395 369 
Periscope | with Board by Periscope ............. 345 275 
Periscope II with NMI Breakout Switch ........... 175 139 
Periscope Il-X Software only ................--- 145 105 
Periscope Ill 8 MHz version ...............00. 995 795 
Periscope Ill 10 MHz version .................. 1095 875 
The PROFILER with Source Code by DWB......... 125 
TURBOsmith Source debugger for Turbo Pascal... . . 99 
The WATCHER Profiler by Stony Brook........... 60 
disk utilities 
Back-It by Gazelle Systems ......... New Version 130 115 
Disk Optimizer by Softlogic Systems ............. 60 
Disk Technician by Prime Solutions ......... New 100 
FASTBACK dy 5th Generation Systems ........... 179 129 
Veache by Golden Bow Systems ...............-- 50 
Vopt by Golden Bow Systems ...............44. 50 
Vfeature by Golden Bow Systems ............... 80 
Vfeature Deluxe by Go/den Bow Systems ......... 120 «+111 
XenoCopy-PC by XenoSoft .................4.. 80 
dos utilities 
Advanced Norton Utilities..................... 150 
Command Plus by FSP Software ................ 80 
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Desqview from Quarterdeck ..........00eeeeeee 
FANSI-CONSOLE by Hersey Micro ............+.. 
Mace Utilities Pau/ Mace Software .......... New 
MicroHelp Utility by MicroHelp................-- 
Norton Commander by Peter Norton ............. 
Norton Utilities by Peter Norton ............546- 
OPAL She// Language by Software Factory ........ 
Q-DOS Il by Gazelle Systems .........0 00 eeeee 
Taskview by Sunny Hill Software .............55 


essential products 


© aie Stare 0S lei iain. os Slant 
Essential Comm Library with Debugger ........... 
Essential Comm Library Software Only ......... 
Breakout Debugger Only Any /anguage......... 
OSOUEE SA ROINES 5 oie ais 5s oes vc ake eek ot re 


forth language 


CFORTH Wative Code Compiler by LM/ ........... 
FORTH/83 Metacompiler Specify Target ......... 
PC/FORTH by Laboratory Microsystems .......... 
PC/FORTH+ by Laboratory Microsystems ......... 
Programmer's Package #1 by /M/ .......... New 
Programmer's Package #2 by LM/ .......... New 
Programmer's Package #3 by /M/ .......... New 
UR/FORTH Also Available for 0S/2 by LMI ....... 

CEL PURI HE Lar Or OOS s 5 cS nn cee ald Shes os 


fortran language 


50 MORE: FORTRAN by Peerless Scientific ....... 
ACS Time Series by Alpha Computer Service ...... 
AUTOMATED PROGRAMMER by KGK Automated... 
Essential Graphics by Fssential Software ......... 
Forlib-Plus by Alpha Computer Service ........... 
FOILS B 0 SIRROINE ae a acces ace givin aed es ole se 
FORTRAN Addendum dy /mpulse Engr ........... 
FORTRAN Addenda by /mpulse Engr............. 
GHAFIID OF ORION: ov ic. ce sk tacectcgese wns 
HALO Graphics by Media Cybernetics ............ 
1/0 PRO w/No Limit Library by MEF ............ 
Microcompatibles Combo Package.............. 

GIOUNE ciiics vias 'gs os cea edie hoe acu ats ee 

PUN sii ts 34's ch dewaceces ods os,s0 Caet 
Microsoft FORTRAN w/CodeView .............. 
No Limit Library by MEF Environmenta/........... 
Numerical Analyst by MAGUS................4. 
PANEL by Roundhill Computer Systems ........... 
PLOT BF SOIREE oasis ba cve ee ees oneecens 
RM/FORTRAN by Ayan-McFarland .... New Version 
RTC PLUS Fortran to C by Cobalt Blue ........... 
Scientific Subroutine Lib by Peerless ............ 
Statistician by Alpha Computer Service ........... 
SEU EE: OY POWMIOES. 66's bia e sees o0sk'e% 
STATUIB.TSE: Oy: Peerdess 20 o.oic bk vedtsiegy ses 
Strings & Things by A/pha Computer Service ....... 


greenleaf products 


Greenleaf C Sampler for Turbo C & QuickC .... New 
Greenleaf Comm Library ..................... 
Greenleaf Data Windows Library ............... 

SEM SOU ONO 8 ook owes wituith a sie eciee es 
SONU SAD 0s sy cen nae ty ouea ees 


help utilities 
HELP/Conteel Op MOS . oc ccc ccc ccenencs 


On-line Help from Opt-Tech ..............0005. 
SoftScreen/HELP hy Dialectic Systems .......... 


lattice products 


Lattice C Compiler ver 3.2 from Lattice........... 
with Library Source Code ............-+24045 
C Cross Reference Generator.................. 
WN SOMES TOOE 2B iaicisies-Oxda cae SARS tees 
C-Food Smorgasbord Function Library............ 
with SomGe COMS. Ooo cies eee aa ok aaa 
C-Sprite Source Level Debugger ..... Special Offer 
Curses Screen Manager ............000cceeees 
WHE SOUCO EONS. i. Sk ea Sis Sane dee eas 
MC OBEN width is 0 MOR ea ek eae edswe 


SI EP PITY oid ovo Wiiw dg ae bee bas vee 
RPG Il Combo A// three items below............. 

RPG Il Compiler Wo Aoyalties................ 

SEU SINNER ENT CUI 6.0.6 s sv aeek cto i054 

DOIEMNOOR es hleeckecs tose a ecee veees 
Screen Design Aid Utility for RPG // ............. 
SecretDisk Il Encryption Utility. ............ New 
SideTalk Resident Communications .............. 
SSP/PC Scientific Subroutine Library ............ 
Text Management Utilities .................... 


metagraphics products 


LightWINDOW/C for Datalight C ............... 
CUNU NUNIT ooh a i sistas cece eds ciiwese sea 
PUN PLUS Soin 5 Shee os eda cbs ce ees 
MetaWINDOW Wo Aoyalties................... 
WRGtNIUSIIUEPTLUG 5 oc he cca dik cece ce ee 
TurboWINDOW/C for Turbo C ..... 2.2... eee 
TurboWINDOW/ Pascal for Turbo Pascal ......... 


micro focus products 


CEE SLE Sy 5 ow hos wads oes 
Micro Focus Level 1] COBOL w/Animator......... 
fawel GOEL so or ess hhc den Se 


Micro Focus Level I! COBOL/ET for UNIX........ 
Micra Faces PC-CIGS  .36, «Fh ses owe New 
pte Were sl Sits oi ce ike bake New 
Micro Focus Personal COBOL ................. 
Micro Focus Professional COBOL .............. 
Micro Focus VS COBOL/XENIX ............... 
Micro Focus Support Products: 
COBOL/IO Ad hoc Report Writer ............. 
COBOL/IO for DOS 3.X Networks ............. 
Lo oS SESE RS pe ee Deira 





microport products 


386 Unlimited License Kit .................... 
AT Unlimited License Kit ..................... 
DOSMerge286 Run DOS and UNIX together ....... 
DOSMerge386 Aun DOS and UNIX together ....... 
System V/386 Combination................... 
See NG SPCCONN osc Posen is one ees 
386 Software Development System ........... 
Text Preparation System ................... 
System V/AT Combination.................... 
Fie PN UTOOND os in ds ec dwiseies bene 
AT Software Development System ............ 
Text Preparation System ................... 


microsoft products 


Microsoft BASIC Compiler for XEW/X ............ 
Microsoft BASIC Interpreter for XEM/X........... 
Microsoft C Compiler w/CodeView . ... New Version 
Microsoft COBOL Compiler with COBOL Tools...... 
RI le ted bas aut with 5 oy otis woarchne SEE 
Microsoft FORTRAN Optimizing Compiler/CodeView 
Microsoft FORTRAN for XEMIX................. 
Microsoft Learning DOS ..................... 
Microsoft MACH 10 with Mouse & Windows ...... 
Microsoft MACH 10 Board only ................ 
Microsoft Macro Assembler......... New Version 
Microsoft Mouse for /BM PS/2 ................ 
Microsoft Mouse Bus Version..............0005 
Microsoft Mouse Seria/ Version ................ 
Microsoft Pascal Compiler.................... 
iia Fang Viele ble a '% ed wesw eB Om 
Meroseft QuickBASIC ... 0. occ ccc ccc enes 
MITE AMNION 6 cate G cs i cs ew uwedee sacs New 
MUCROENEL TUMNNOUE {5 Boos os vce ernie cdaicwens 
Microsoft Windows Development Kit ............ 


i Ge New Version 
mks products 

NNO ah GAN’ 6 via ib Nie eave i Sie aieieqieceriaa New 
MKS RCS Revision Control System.......... New 


MKS Toolkit with MKS V/ Editor ................ 
MKS Trilogy with AWK, CRYPT & Korn Shell... New 
MKS VI Editor by MKS ..... 0... eee eee New 


modula-2 language 


LOGITECH Modula-2 Development System... . New 
Modula-2 Compiler Pack ............... New 
Modula-2 Toolkit..................... New 

LOGITECH Modula-2 ROM Pkg................ 

LOGITECH Modula-2 Window Pkg.............. 

Macro2 Macro preprocessor by PM/ ............. 

ee ee er ee eee eee 

ModGraph by 7EQWA ............ 0.0 ce eee New 

TINE ior adits karen hols oSiaenbls 

Science & Engrg Tools by Quinn-Curtis ........... 

Universal Graphics Library by Quinn-Curtis ........ 


mouse products 


LOGIMOUSE BUS with PLUS Pkg by LOGITECH .... 
with PLUS & PC Paintbrush. ... 0.0.0... c ccc uee 
with PLUS & CAD Software.............0005. 
with PLUS & CAD & Paint... 0.2.2... ccc eens 
ie FEN FUN os oo. 5 oan 6h Sida New 

LOGIMOUSE C7 with PLUS Pkg, Specify Connector... 
with PLUS & PC Paintbrush. ... 2.0.0... 000005 
with PLUS & CAD Software.................. 
eth PLUS GO CAD © Pam ied s carne a cvonshisds 
NON Fad POONER. ooo scam en viewnieet New 

Microsoft Mouse See Microsoft Section 


other languages 


ACTOR by Whitewater Group ........ New Version 
CCS MUMPS Single-User by MGlobal ........... 
CCS MUMPS Single-User Multi-Tasking .......... 
CCS MUMPS Multi-User... 0. cc ceccesccccccs 
Marshal Pascal by Marshal Language Systems ..... 
Pascal-2 by Oregon Software ...............4.4. 
Personal REXX by Mansfield Software ........... 
GOOEY BY CHSIAW 0 oc occ csccccncueewes 


other products 


Carbon Copy Plus by Meridian Technology ........ 
Dan Bricklin's Demo Pgm by Software Garden ..... 

Dan Bricklin's Demo Tutorial ................ 
Fast Forward by Mark Williams ................ 
Instant Replay by Wostradamus ................. 
MicroTEX /ypesetting from Addison-Wesley ....... 


PUNOT TWEE os Ss vaeecncsace es New 
WOT TSUN ET BOUT os Linc edge cennwedieacwe 
Norton Guides Specify Language............ New 


OPT-Tech Sort by Opt-Tech Data Proc ........... 
PC/TOOLS dy Custom Software ................ 
Screen Machine by MicroHelp ..............44. 
SuperSort dy LifeStyle ..............004.. New 


phoenix products 


Pasm86 Macro Assembler version 2.0............ 
Pdisk Hard Disk & Backup Utility............4... 
Pfantasy Pac Phoenix Combo ................--- 
Pfinish Fxecution Profiler ...........00 50 e nee 
Pfix8Gplus Symbolic Debugger ................-- 
PforCe Specify C Compiler ..... 22.2.0... e eee ee 
PforCe++ Specify C Compiler and C++ ........... 
Plink86plus Overlay Linker ..............22044- 
Fer MRE CY oS oso sale Pn deses ewes 
Pmate Macro Text Editor ............ 0c eens 
Pam Cit Gime 6 tiie sos ce Sek Sw Cala he 
Ptel Binary File Transfer Program ..............- 


polytron products 


PolyBoost Software Accelerator ..... Special Price 
PRINS Salts Boo cy cowie eigink custnas na ee 
PolyDesk Ill Archivist ...................2.- 
PolyDesk Ill Cryptographer ................. 
PeORON TIM bo ore ye oe Mi cme eee ee 
PolyLibrarian Library Manager ............-++++ 


PolyLibrarian Il Library Manager................ 149 129 
PolyMake UWIX-like Make Facility............... 149 129 
POIPOOE aides bok Sn See Ris pists Special Price 149 105 
oc big dep he ee, cy a ee ee 50 45 
PolyXREF Complete Cross Ref Utility ............ 219 = 185 
PolyXREF One language only .................. 129 109 
PVCS Corporate Version Control System.......... 395 329 
ROPE, con oa Sci cat herb elee oa sienace 149 129 


program mgmt utilities 
Interactive EASYFLOW by Haventree .. New Version 150 125 


PrintO by Software Directions ...........04.004% 89 84 
Quilt Computing Combo Package ............... 250 199 
QMake Program Rebuild Utility. .... 2.6.66 0 44. 99 79 
SRMS Software Revision Mgmt System ........ 185 159 
Sapiens MAKE & V8 .................... New 439 379 
wants THE i. 6 5S ae ae he New 179 155 
Source Print by A/debaran labs ................ 97 75 
TLIB Version Control System by Burton ........... 100 89 
Tree Diagrammer by A/debaran labs ............ 77 67 
raima products 
dbQUERY Single-User Query Utility. ............. 195 129 
Single-User with Source Code ...........0000 495 389 
WO 505.5 Jake aan e ts bv nia o Bon een 495 389 
Multi-User with Source Code... .........0004: 990 699 
dbVISTA Single-User DBMS ........ 0000.00 0 0s 195 129 
Single-User with Source Code .............05: 495 389 
WO TIEDE os ico eS elie: tds Wee ye Ras 495 389 
Multi-User with Source Code.............005 990 699 
sco products 
Complete XENIX System V by SCO.............. 1295 994 
Development System .....................- 595 499 
Operating System Specify XT or AT............ 595 499 
Text Processing Package................... 195 144 
SPO POO aid 8 lobar ang pe dd ds ded eee 595 449 
SCO Professional 7-2-3 Workalike for XENIX....... 795 595 
SEEN 0 cit ck Se snan teed doit wae 595 495 
XENIX System V 386 dy SCO.............. New CALL CALL 
softcraft products 
Btrieve /SAM Mor with No Royalties ............. 245 184 
Renee Caaty URN 666 5 i a pice adi 245 184 
Report Option for Xtrieve ................... 145 99 
Btrieve/N for Networks ........ 00. ccc cece ees 595 454 
WIN Saf 20 cit On et conc ines Aenea wee 595 454 
Report Option/N for Xtrieve/N............... 345 269 
text editors 
Brief & dBrief Combo from Solution Systems ...... 275 CALL 
NSE Sea ib bh aia's bdo Deets et de ee 195 CALL 
dBrief Customizes Brief for dBASE Ill... ........ 95 CALL 
Oe: BY Dale [ERIE obo sa Save e ccs New 75 65 
Epsilon Emacs-like editor by Lugaru.............. 195 147 
KEDIT by Mansfield Software ................-. 125 98 
Micro/SPF by PHASER SYSTEMS .............. 175 139 
seperirh mere Sich. EEE ECT New Version 450 269 
PC/VI by Custom Software Systems ............. 149 99 
SPF/PC by Command Technology Corp........... CALL CALL 
Vedit Plus by CompuView.................045- 185 128 
turbo pascal utilities 
ALICE /nterpreter by Software Channels .......... 95 66 
DOS/BIOS & Mouse Tools by Quinn-Curtis........ 75 67 
Flash-up Windows dy Software Bottling .......... 90 78 
MACH 2 for Turbo Pascal by Micro Help .......... 69 55 
MetraByte D/A Tools by Quinn-Curtis............ 100 89 
Science & Engrg Tools by Quinn-Curtis........... 75 67 
Screen Sculptor by Software Bottling ............ 125 91 
Speed Screen by Software Bottling.............. 35 32 
System Builder by Royal American .... New Version 150 129 
es ANY CNMAE 6 a cig BSG odds beds anivda’s 100 89 
Wenets oa os oc cote Se oat New Version 130 115 
TDebugPLUS by 7urboPower Software ........... 60 49 
Tmark by Tangent Designs ..............02005: 80 69 
Turbo EXTENDER by 7urboPower Software........ 85 64 
Turbo OPTIMIZER by TurboPower .............. 75 65 
WRN DOWEE CONG 5. 53S ie et ed 125 98 
Turbo Professional by Sunny Hill ............... 70 45 
TermQALO Want WET 8 ois ick core ei e bse 129 98 
TurboPower Utilities by TurboPower............. 95 78 
TurboRef by Gracon Services ...............45. 50 35 
TURBOsmith Source Debugger by Visual Age ...... 99 89 
Universal Graphics Library by Quinn-Curtis ........ 130 §=6119 
wendin products 
Operating System Toolbox .................... 99 79 
PCNX Operating system .... 2.2... 0. cece eens 99 79 
PCVMS Similar to VAX/VMS ........ 6.000 cc eee 99 79 
Wendin-DOS Multitasking DOS............0444. 99 85 
Wendin-DOS Application Developer's Kit .... . New 99 85 
XTC Jext Editor w/Pascal source .............+. 99 75 
xenix/ unix products 
Btrieve /SAM File Mgr by SoftCraft .............. 595 454 
C-terp by Gimpel, Specify compiler .............. 498 379 
c-tree /SAM Mor by FairCom ............02005. 395 315 
dBx with Library Source by Desktop Al............ 550 419 
DIRECTORY SHELL 286 
by American Mgmt Sys .........0-02000- New 349 295 
DIRECTORY SHELL 386 
by American Mgmt Sys ............-4044- New 495 415 
DOSIX Console Version hy Data Basics ........... 400 349 
DOSIX User Version by Data Basics ............. 200 =179 


Micro Focus Products See Micro Focus Section 
Microport Products See Microport Section 
Microsoft Products See Microsoft Section 


PANEL Plus by Roundhill Computer Systems ....... 795 535 
REAL-TOOLS Binary Version by PCT ............. 99 89 
ERG SECO VATION 05 Fs on ocak ota va ape 599 539 
Complete Source Version ..............02.44- 999 729 
RM/COBOL dy Ayan-McFarland ................ 1250 949 
RM/FORTRAN by Ayan-McFarland.............. 750 549 


SCO Products See SCO Section 
Terms are subject to change. — 
©1987 Programmers Connection, Inc. 
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LOWEST PRICES 
Due to printing lead times, some of our current 
prices may differ from those shown here. Call for 
latest pricing. 


FREE SHIPPING 
Orders within the USA (including Alaska & Hawaii) 
are shipped FREE via UPS. Express shipping is 
available at the shipping carrier's standard rate 
with no rush fees or handling charges. To avoid 
delays when ordering by mail, please call first to 
determine the exact cost of express shipping. 


VISA and MasterCard are accepted at no extra 
cost. Your card is charged when your order is 
shipped. Mail orders please include credit card 
expiration date and authorized signature. 


CODs AND POs 
CODs and Purchase Orders are accepted at no 
extra cost. No personal checks are accepted on 
COD orders. POs with net 30-day terms (with initial 
minimum order of $100) are available to qualified 
US accounts only. 


SALES TAX 
Orders outside of Ohio are not charged state sales 
tax. Ohio customers please add 6% Ohio tax or 
provide proof of tax-exemption. 


INTERNATIONAL ORDERS 

Shipping charges for International and Canadian 
orders are based on the shipping carrier's standard 
rate. Since rates vary between carriers, please call 
or write for the exact cost. International orders 
(except Canada), please include an additional $10 
for export preparation. All payments must be made 
with US funds drawn on a US bank. Please include 
your telephone number when ordering by mail. Due 
to government regulations, we cannot ship to all 
countries. 


VOLUME ORDERS 
Volume orders may qualify for additional discounts. 
Call us for special pricing. 


SOUND ADVICE 
Our knowledgeable technical staff can answer 
technical questions, assist in comparing products 
and send you detailed product information tailored 
to your needs. 

30-DAY GUARANTEE 
Most of our products (excluding books) come with 
a 30-day documentation evaluation period or a 
30-day return guarantee. Please note that some 
manufacturers restrict us from offering guarantees 
on their products. Call for more information. 
MAIL ORDERS 

Please include your telephone number on all mail 
orders. Be sure to specify computer, operating 
system and any applicable compiler or hardware 
interface(s). Send mail orders to: 


Programmer's Connection 
7249 Whipple Ave. N.W. 
North Canton, OH 44720 


ROE sooo 800-336-1166 
CANADA _ 800-225-1166 
OHIO & ALASKA (Collect) 216-494-3781 
MRR tin idee 9102406879 
EASYLINK 62806530 
INTERNATIONAL ............ 216-494-3781 


CUSTOMER SERVICE ... 216-494-8899 
Hours: Weekdays 8:30 AM to 8:00 PM EST. 
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hat do the following have in 

common: binary addition, sub- 
traction, multiplication, and division; 
sorting; graph connectivity; multipli- 
cation of matrices and finding their 
inverses, determinants, and ranks; 
polynomial greatest common denom- 
inators; and context-free languages? 

Answer: they all belong to a class 
of problems denoted as NC, short 
for Nick’s class, after one Nicholas 
Pippenger who gave the class formal 
definition some eight years ago in a 
paper called “On Simultaneous Re- 
source Bounds” in the Proceedings 
of the 20th IEEE Symposium on the 
Foundations of Computer Science 
(IEEE Computer Society, Los Ange- 
les 1979). The problems that gain 
admittance to Nick’s class are just 
those problems that can be solved 
substantially faster and more effi- 
ciently using many _ processors 
rather than one. They are the prob- 
lems that will drive the growth and 
spread of parallel processing tech- 
nology. 

Progress on parallel processing ar- 
chitectures seems to be gaining mo- 
mentum. Some of the approaches 
include investigating problems such 
as the Byzantine Generals problem, 
in which processors have to reach 
an agreement through message pass- 
ing even though some of the mes- 
sages are unreliable, and research 
on message passing in a sparse net- 
work of processors. And up in the 
hills behind the Berkeley campus of 
the University of California, research- 
ers at the Mathematical Sciences Re- 
search Institute, the “Camelot of com- 
plexity theory,” have developed sig- 
nificant new parallel algorithms in 
recent years. 

The Fundamental Algorist, Donald 
Knuth, tells of a visit to the Univer- 
sity of Chicago some years ago. En- 
tering a certain building, he encoun- 
tered two signs. One said “Informa- 
tion Science” and had an arrow point- 
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ing to the right; the other said “In- 
formation” and pointed to the left. 
A real-life cartoon of the schism be- 
tween science and practice, or, as 
Knuth sees it, between science and 
art. 

Knuth has argued for years that 
computer programming should be 
viewed more as an art and that the 
toolmakers ought to make tools that 
are a pleasure to use. Floating-point 
arithmetic should satisfy simple 
mathematical laws, he argues; then 
using it for serious purposes could 
be pleasant. He even thinks that JCL 
can be beautiful. 


Beauty is in the eye of the be- 
holder. Is reverse Polish notation 
beautiful? How about those Unix pro- 
gram names? Awk! To some, beauty 
can be structural elegance, as in 
Bach's “Tocatta and Fugue in D 
Minor’; to others, it’s a clever hack, 
like Tom Lehrer’s ‘Poisoning Pigeons 
in the Park.” 

Alan Turing, one of program- 
ming’s patriarchs, loved a clever 
hack. Turing, as his colleague James 
Wilkinson put it, “was particularly 
fond of litthke programming tricks 
(some would say he was too fond of 
them to be a ‘good’ programmer).” 
Because the world’s first working 
program on an electronic stored- 
program computer ran on June 21, 
1948, and Turing was writing pro- 
grams for the machine a few days 
later, this particular aesthetic dis- 


agreement would seem to have deep 
roots. 


All of the above items were drawn 


from a book that I recommend to 


any programmer. It’s ACM Turing 
Awards Lectures: The First Twenty 
Years: 1966-1985, (Addison Wesley, 
1987). Credit where credit is due. 


The key to the puzzle from last 
month is that the stated conditions 
imply that only Mickey would get 
any of the loot. That column was a 
nostalgic aberration, by the way; I 
once did puzzles like it weekly, en- 
couraged by Maggie Canon, then 
editor-in-chief of InfoWorld, now of 
Macintosh Today. Thanks, Maggie. 
Credit where credit is due. 


Cousin Corbett’s Secrets of Soft- 
ware Success, Part VII: The Rule of 
Point One. This is a corollary to an 
earlier Secret, but is important 
enough to merit a Part number of its 
own. The rule is: use Version i.0 of 
your product to debug the changes 
since Version i-1. When the product 
is relatively stable again, release it as 
Version i.1. The user version of this 
rule is: don't buy anything until Ver- 
sion i.1 is released. The authorship 
of this rule is in dispute. A PC Week 
author may already have published 
the rule, but he borrowed it from 
our editor, Tyler Sperry, who claims 
to have invented it. My cousin 
Corbett, on the other hand, swears 
that it’s his. All I know for sure is 
that the inspiration came from Mi- 
crosoft. Credit where credit is due. 


Wi bef) Fade 


Michael Swaine 
editor-in-chief 
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How A 


C Programmer 
Became A Screen St: 


Screens, the Visible Part 
of Your Program. 
A program is often judged by how well 
the screens are executed. However, 
the real creativity lies in what goes on 
behind the screens. 


ScreenStar is a product that allows your 
real creativity to light up the screen. It 
reduces costly screen, window, and data 
validation development time. 


You Take the Bows, We 
Write the Code. 


Our natural drawing commands allow 
you to paint any screen imaginable. 
Press one key when you are satisfied and 
ScreenStar produces concise, commented, 
ready-to-compile code. This allows 
immediate testing of the I/O screens, 
including smooth, even scrolling 
between multiple screens. 





Create or capture complex screens with 
data-entry filters built in. 


If all ScreenStar did was turn screens 
into code it would be a useful tool. Yet 
ScreenStar also permits a wide range of 
field types. Some of the choices include 
date, alphanumeric, telephone, yes/no, 
dollar, time and user-definable fields. 


Other valuable data-entry filters are 
built in, such as required field, display 
only, and many others. All screen fields 
are generated with error-checking routines. 
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ScreenStar is a trademark of Essential Software Inc. 
Dan Bricklin’s Demo Program is a trademark of Software Garden Inc. 


ScreenStar Not Only Captures 
Your Imagination, 
It Captures Screens. 


The memory-resident capture program 
converts any screen into a ScreenStar 
file in seconds, including those generated 
by programs like Dan Bricklin’s Demo 
Program. 


ScreenStar Sets the Stage 
for Windows. 


ScreenStar comes with a complete 
window generating library. You design 
the help screens and pop-up windows. 
Essential ScreenStar windowing 
functions tie them together in one 
smooth package. 


Curtain Call. 


They may not ask for your autograph, 
but they will want to know how you did 
those screens. Screenstar is more than a 
screen-painting program. It is a 
screen processor. No professional 
programming environment will 
be complete without 
this product. 


We know you will enjoy 
using ScreenStar. However, 
should you give it less than 
rave reviews, return it 
within 30 days for a full 
refund. 








* Interactive screen painting and 
subsequent code generation. 


* Multiple screen design and scrolling. 


* TSR screen capture program, works 
with any program including Dan 
Bricklin’s Demo Program. 


* Complete window design including 
overlapping window functions. 


* Screens are compressed into data 
structures, and remain a permanent part 
of the program. No messy data files to 
look for. 


Price - $99 


W/Source add $99 


Audition Our Product 
Today. Call: 
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South Orange Plaza 

76 South Orange Ave., Suite 3 
_ South Orange, NJ 07079 
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Whatever dialect of IBM you need to speak, 


CROSSTALK® Mk. 4 makes the connection. 
_ Now, one program does the job that used to require several. 
CROSSTALK® Mk. 4 allows high-speed direct communications 
between PCs and minicomputers, or (with an IRMA™ board) 
between your PC and an IBM Mainframe, or (with Smart Alec™) 
between your PC and IBM System 3x’s. If you like, CROSSTALK 
can support all of these sessions (and others) simultaneously, 
and display each session in its own window. 
CROSSTALK Mk. 4 emulates all the terminals you're likely 
to find useful. That includes IBM 3101 (page and character 
modes), IBM 525x, IBM 529x, IBM 327x, as well as many 
popular async terminals like the DEC VT 100 and VT220 
series. CROSSTALK Mk. 4 includes the powerful CASL™ 


programming language, which allows you to automate 
communications applications quickly and easily. 


So if you're used to thinking of CROSSTALK just to 
use with a modem, you’re missing some important 
connections. Ask your dealer for details, or write: 


Geel Digital Communications Associates, Inc. 
1000 Holcomb Woods Parkway / Roswell, Georgia 30076 


1-800-241-6393 CROSSTALK’ 


COMMUNICATIONS 
WE 


CROSSTALK and DCA are registered trademarks of Digital Communications 

Associates, Inc. IRMA, Smart Alec and CASL are trademarks of Digital Communi- 
cations Associates, Inc. IBM is a registered trademark of International Business 
Machines Corp. DEC is a registered trademark of Digital Equipment Corp. 
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